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7otuZ' Innrnr s'^p ''"' f '^' ^^^^^ ''^^- ^'^"^^^^^^ P--1 - the next generation of the 
fmoWntr l''^^ programming language TML Pascal 11. Complete Pascal 

Tsfer and fare^Th" 7^"' "f ''T''' *^^' "^^^ programming the Apple IIGS even 
r. HpJ-„ / ^^ ^,l'%'"'lt important change in Complete Pascal is that it fully supports and 
IS des gned specifically for the Apple IIGS System Software version 5.0. In particular Complete 
Pascal provides complete support for Resource editing and programming with resources. 

^^ Note: This version of Complete Pascal is designed for single machine users. If you intend 
. to use Complete Pascal on an AppleShare fileserver for a network of Apple IIGS 
machines, you will need to acquire the special network version of Complete Pascal which 
fully supports the fileserver and network environment.. 
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noTsTbt Ifr '' tf ^''^ ^".T^^ ^^' ""'^' °^^^" ^^""^^^^ ^^'^ee of Apple IIGS programmers 
possible_ The Complete Pascal language is solidly based upon the American National Standard 
lor the Pascal language with numerous extensions for programmers accustomed to other Pascal 
mplementatmns. It is a structured, high-level language you can use to write programs for any 
type or size application. ^ ^ 

Complete Pascal implements separately compiled Units. Pascal strings, random disk I/O and 
standard subprograms such as MoveLeft. FillChar. etc. that are found in UCSD 
iTTiplementations of Pascal such as Apple Pascal. And, of course, language features from the 
f vTw ^T . '''''.''" of Complete Pascal such as type casting, bit operations. CYCLE and 
i^lLAVJi, statements, and much more are found in Complete Pascal for the Apple IIGS. 

In addition Complete Pascal implements an extremely powTrfuI Resource Editor which greatly 
^mphfies the process of creating menus, windows, dialogs, etc. for you programs (see Chapter 

Using Complete Pascal, you can create five different types of programs: " 'X.-'-Ii ■^' :->- - - 

• Textbook applications. , $ . ^,. 

Graphics Textbook applications j* i r i. > • • «. 

• Desktop applications 

New Desk Accessories CNDAs) 
Classic Desk Accessories (CDAs) 

In''?'' urT/'''f '""' ^'' ^^^ ""^'^ ^^'■'^ °^ ^" ^^^'^^ programs. These programs execute in the 
Apple iH^h text screen and require no specific knowledge of the Apple IIGS Toolbox See 
Chapter 6 for more information about Textbook applications. ^ ,:.. ■'H -j^riA "^^iJ lo . ->.;:-. ■■ 



Grap/ucs Textbook applications are a simple extension of the Textbook applications which 
execute m the super hires graphics screen. Thus, Graphics Textbook applications can still 
make simple use of Readln and Writeln routines for 1/0, but can also use QuickDraw to add 
graphics to a program. See Chapter 7 for more information about these types of programs. 
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Desktop applications are programs like Complete Pascal. These programs make full use of the 
Apple IIGS Toolbox to create menus, windows, dialogs, etc. Desktop programs are much more 
difficult to write than Textbook programs, but provide the added benefits of a graphics based 
application. Chapter 8 discusses the details of creating desktop applications. 

Finally, Complete Pascal can be used to create bothATcu; Desk Accessories (NDAs) and Classic 
Desk Accessories (CDAs). NDAs and CDAs are special types of "mini-applications" which can 
be run from within other applications. Chapter's 9 and 10 respectively discuss the 
fundamentals of NDAs and CDAs and teach you how to create both types of programs. - ■^.- ,. 

About The Manual ^>i-*>^A ^^'^^^^^^a^ ^^ > ^^'^^^- ^ ^^^ '. 

rt-,.;f.ui liS-.im'^-^ ^-.-R^rr^r^s.* '{-.* i«'v/..3*r 4'<Q-oHn \za'i^^'^. "■'=--) '^-v*\\y- 

This manual has been designed to help you begin using Complete Pascal quickly and to also 
serve as a reference manual when your programming level becomes more sophisticated. Each 
chapter in the manual is individually numbered making it very easy for CTI to update your 
documentation as future versions of Complete Pascal are released. The manual is divided into 
four parts: 1) User's Guide, 2) Programming, 3) Language Reference, and 4) Appendices. Each of 
these four parts is described below. '- ■s^'^s"-^- "' '^ ■ " ^.i--, (-,.-.:j^ _; - .. 

The User's Guide introduces you to Complete Pascal and will teach you how to set up your 
system to use Complete Pascal and how to get the most out of using Complete Pascal. The 
User's Guide is intended to provide a general overview of Complete Pascal's working 
environment. 

Programming delves into the fundamentals of Comptete Pascal by teaching you how to write 
each of the five different types of programs using Complete Pascal. 

\ll«rtia, ivit!--^' -j4k^;:>2s j^s-vir^^cs.-. i.?jj-.-«vv v»'--"'"* ■ ;■ ' 

The Language Reference is a complete reference for the Pascal language features implemented 
by Complete Pascal. Note that this section is a reference and not a tutorial on the Pascal 
language. If you are not familiar with Pascal, you may need an additional text which teaches 
the Pascal language. c ^ 

The Appendices summarize the Complete Pascal error messages and I/O results, compiler 
directives and Apple IIGS Toolbox Units. Additionally, an inside look at Complete Pascal's 
more advanced features is provided along with a comparison of Complete Pascal with the 
original TML Pascal. - , , ^_ ,.. ..i.,.w, -■,,- ; 



What You Should Know , .. 

Complete Pascal uses the same intuitive, easy-to-use interface popularized by the Apple 
Macintosh and used in most Apple IIGS applications. If you are already familiar with this 
interface then you can begin using Complete Pascal immediately. If not, be sure you know the 
basic techniques of the Apple IIGS before you begin working with Complete Pascal: 

i-i: " The fundamental mouse techniques of dragging, clicking, and double-clicking 

{t^ • Pulling dowii menus and choosing commands 
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,.,^. Working with windows ^^V3 ,^,,^v .n,,ci,, Moi^.r^ri^;:: :.=.:>>^tnx., rttr^r-r c: .. .^^^ : ■■ ' 

• Working with icons on a desktop 

If you feel unsure about any of these items, the following texts are good references for reading 
about these basic features of your Apple IIGS. 

• Apple IIGS Owner's Guide - particularly Chapter 3, "The Mouse and the Keyboard". 

• lu"'^ J^"'^ ^^^^^ ^^^^^ ^^^^ ' ^^^ ^'^^^"i^e disk that came with your Apple IIGS computer. 
..-^ _T'^'s d's'^ includes hands-on experience using the mouse. _V:_^. i -.- 

• Apple IIGS System Disk User's Guide - this manual contains complete information about 
the Finder. 

If you are new to the Pascal programming language, or you would like to review your Pascal 
programming skills, the following textbooks will offer you an excellent introduction and 
tutorial: 

• Oh/ Pascal!, Michael Clancy and Doug Cooper, W.W. Norton and Company, 1982. 

• Programming in Pascal, Peter Grogono, Addison-Wesley, 1978. t;<i icr) ^^i^.-b A-.^u^ r^ ■ 

If you are looking for technical references to the Pascal programming language you will find 
the following documents extremely useful: 

• Pascal User Manual and Report, Kathleen Jensen and Nicklaus Wirth Springer-Verlac 
1985. . ..,..,.: „> ........^ . ....-.- . .... :— - 

• American National Standard Pascal Computer Programming Language ANSI/IEEE 
770X2.97-1983, lEEEAViley-Interscience, 1983. 

For those experienced Pascal programmers, or those aspiring to write the next great Apple IIGS 
application, the following texts provide a wealth of information regarding the Apple IIGS 
Toolbox: 

• -Exp/ormjg iAe App/e //GS, Gary Little, Addison-Wesley, 1987. ^vcv* =«ovr'-'^ > 

• Mastering the Apple IIGS Toolbox, Morgan Davis and Dan Gookin, Compute! 
Publications, Inc., 1987. 5^g\'3s§E3SEnas«asE^»:;5Si^s^?i0s^;sss3!iSfc::>^i^ri®^ 



■Ss:^r^~:-'X^-n.:.- -- 



• Advanced Programming Techniques for the Apple IIGS Toolbox, Morgan Davis and Dan 
Gookin, Compute! Publications, Inc., 1987. 

-_ V Note; Advanced Programming Techniques for the Apple IIGS Toolbox uses TML 
Pascal in its discussion of programming the Toolbox. ""'■■ '^ 

• Apple IIGS Technical Reference, Michael Fischer, Osborne/McGraw-Hill, 1987.' '" 

Finally, there is the Apple Programmer's and Developer's Association (APDA). APDA is an 
Apple Computer membership organization that distributes technical information to 
programmers and developers. APDA is a great source for Technical Notes, programming 

utilities, reference books, and information about announced (but unreleased) products. 
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You will want to obtain technical information about System Software version 5.0.x as it becomos 
available from APDA. For information about membership and products, contact APDA 
directly: 

Apple Programmer's and Developer's Association (APDA) ' "^' "" "' '•''.^'^ ''""^' . ■"^'■^ ' ^ 
Apple Computer, Inc. ^- ''*^-- '^' ^'^^''''" ' '"'''"' ^" 

20525 Mariani Avenue, MS: 33G , . -. ,. 

Cupertino.CA 95014-6299 ■.'^'^ ^"^ -^ *$;^5^^r) ytvti..-.;):^^ - -^^^^ ^- ■-•■ ' - ''■ 

800-2S2-2732 

.^f^-imf'^'f-^ {^^^51 m^^iii-^. t'iStvs '.mkj ibtii ;^^..i> 5Rr:T--.t: S'-O -;-*.'. V.::;v. ■^- 

What You Need ivio-v .^nv^ao? ?.»i*«fifCT Kifvi - -ij-i.-^:-^ -. "•'^^- '<-'■•■•' =-■ ~..-. ■>■- -■--■- 

To use Complete Pascal, you will need the following items: 
!*^ • An Apple IIGS with at least 1024K of Random Access Memory (RAM) ;?.S ^ ":r.. •-■..< 

• A color or monochrome monitor 

• At least one 800K 3.5" disk drive ^ .^^^^t. yi.^Va b^^^ <r.m.?:^ h --^..^v? ^^..- -^' : ■ 

" One blank disk for backing up your Complete Pascal Master Disk '"*' 

• Blank disks for storing the programs you create »*!^*-^ -^-ri-wf-.^s • ■^> 'i'T'i-v;et -■■■'^ 

■--Tfr^^'4," --,.*lhi'''J- "■<■"'■ ,v'' ■■■■ 
The following items are optional for use with Complete Pascal: 

• A second 3.5" disk drive or a hard disk drive 

V Important: The Complete Pascal Master Disk includes the most recent version of the 

«* Finder and GS/OS (version 5.0 and later). If you are currently using a version of GS/OS 

o earlier than version 5.0 and would like to learn more about the capabilities of GS/OS 

version 5.0, you can order an updated version of the Apple IIGS System Disk User's 

Guide from your Authorized Apple Dealer, t..*. s^j^-^ X^^-^ ..'"'K,-'^: -v, ;■.. tr.> :^■. ^w . 

Register Your Product -•»-» -*-.» -j*-^ ««'».,.ls«4^^^ -.^iv-^j-.^ft-^mTi*^ ^:•*rtM »..>■;> 

Take a minute now to complete and return the Complete Pascal Registration Card to Complete 
Technology. If you did not receive a registration card with your product, contact Complete 
Technology's Customer Service Department immediately^^ii-r;.: ;^> fioi=^ssii^'-'' "'* ■"■' ■^" "> 

As a registered user of Complete Pascal, you will be notified of enhancements to this product 
and be afforded discounts on other Complete Technology products. 

i^H.H /Mi'iA '. -■- i/i> tiK-rLii.-.'-. -^f-> ' .i?t<| vis* '-;■-' - -.^ i- ••*' " . . , 
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Contacting Complete Technology 

If you have questions concerning your product, a change of address, or any other non-technical 
question, feel free to call Complete Technology's Customer Service Department. Customer 

a/''''\'^-'L^''^^ ^^^^ ^""d^y tlirough Friday between the hours of 9:00 am and 6-00 pm 
Mountam Time at 303/758-0920. 

If you have technical questions concerning Complete Pascal, or any of Complete Technology's 
^^r^. ^ products, feel free to call specifically between the hours of 2:00 P.M and 5-00 

f.M.. Mountain Time, Monday through Friday, at 303/758-0920. 

addrels^"^^^^"^ '"^ ^''^ Complete Technology a letter, please address your letter to the following 

Complete Technology, Inc. 
2443 S. Colorado Blvd. Suite 221 
Denver, Colorado 80222 
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This chapter shows you how to make a backup copy of your Complete Pascal Master Disk and 

conLuU^n' Al "^^'"'//''^^ ^''"^ '''^'' ^ "^PP^ ^''^ ^"^« °^ ^^^^ ^^^^ drive 

Pnr!.! f p 1^ ° Presented is a discussion of compilers versus interpreters and a list of 
Complete Pascal's most outstanding new features. 



'i?^4^Vr.; :>Vi't' J ;-t.- 



Backing Up the Complete Pascal Master Disk 

The first time you use your Complete Pascal package, you will want to make a working copy of 
your original Complete Pascal Master Disk. Programming a computer naturally lends itself to 
causing problems if not disasters if programs you write get out of control. Therefore it is 
imperative that you use a working copy of the software and store the Master Disk as permanent 
Dackup. Ihis process involves only two simple steps: 

* Initializing a blank 3.5" floppy disk . (*:«fts*^'r > S--?iKT? ♦j^^v'^a^s ^t----> .•^• 

' n''J!^ ^u ^?^^^ V.*^^ ^"^^^ ^° *=''^«*^^ ^ ^°^^^"^ =^Py °f yo^'- Complete Pascal Master 
Uisk. therefore allowing you to store your Master Disk as a permanent backup. 



-.«;. * ^f^^'- ^17°"^ ^^^ "°* familiar with these procedures, see your copy of the Apple IIGS 
«St&, ^y^^^"^ ^'■^^ User's Guide for a discussion of these topics. 



tOSB 
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Setting Up Your Systenrt(|^^~^^|: 

The following three sections describe how you might set up a working environment for using 
Complete Pascal with either a single 3.5" disk drive system, a dual 3.5" disk drive system, or a 
hard disk system configuration. j , k^ a 
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Single Disk Drive System 

If you are using a single 3.5" disk drive system, you will find that Complete Pascal can be used 
exactly as it is shipped on the distribution disk without having to sacrifice any functionality or 
performance. 

The only restriction imposed by a single disk drive system is the size of the programs you 
develop will be restricted to the available disk space to store them. On your working copy of 
Complete Pascal, feel free to delete the various folders containing example programs to make 
room for your new programs. Of course, you do have backups of these folders on your Complete 
Pascal Master Disk when you decide you need them, y>»,ffc ,c i.-; ttwni?'i!?^'J ..^-j/-* --■'•- 

The Examples folder contains those files used in the User's Guide portion of this manual which 
you should keep on your disk if you intend to follow the Guide's discussions. 



Two Disk Drive System srU 1^ia£>-K"^ mozL^-i ^5^»mj^j-*'-- -■-•" :-" 

If you have a second disk drive, then you can take advantage of this extra storage capacity for 
developing larger programs. You may find it easier to keep all of the example programs, as 
well as any new programs you create, on a separate disk and access them from your second 
disk drive. 

• Note: The Toollnterfaces folder should be kept on your working disk in order that all 
programs compiled using Complete Pascal may share the files contained therein. 



Hard Disk Drive System 

While a hard disk is not required to use Complete Pascal, you will enjoy the luxury of faster 
disk access and an extensive amount of disk storage space available for creating large 
programs. 

To use any GS/OS formatted hard disk drive with Complete Pascal, simply copy the entire 
contents of the Complete Pascal working disk onto your hard disk, with the exception of the 
SYSTEM folder (you obviously already have the entire GS/OS operating system installed on 
your hard disk if it is up and running). . ^^ ^ ^. .^ ..„r , . 



'■y . • ■ 



a V Important: Complete Pascal is specifically designed for System Software version 5.0.x, 
or greater, and GS/OS. Complete Pascal, and programs created with Complete Pascal, 
cannot run on any version of ProDOS/16 or versions of GS/OS earlier than version 5.0.x. 
If your hard disk is formatted with any earlier operating system contact your local Apple 
Authorized Dealer for an immediate upgrade to the most recent GS/OS operating system. 



A Note On RAM Disks 

Traditionally, Apple II users have found using RAM disks advantageous, and have done so 
without stealing available memory from an application, due to the Apple IPs restriction of 
permitting only 128K of memory or less to a single application. 

However, Complete Pascal and the Apple IIGS operate much differently than the earlier Apple 11 
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computers. Complete Pascal is a memory resident application. Thus, there is no advantage to 
storing Complete Pascal on a RAM disk. Further, Complete Pascal maintains, in memory an 
Annl! RPq t il^ '^ '' '^^^^"^ (including library files, compiled code, etc.) and uses the 

.ZlV r TA?.^"^^''"* ^° ^'^'^ available memory. Thus, any RAM space you might 

allocate for a RAM disk would only decrease the amount of memory Complete Pascal has 
available to it for editing and compiling. 
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Compiled versus Interpreted Languages 

fnZnlT/j^^''^^ '' ^ ''T^'^''^ ^a^^^a^.. In this regard.' as well as others, it differs from 
interpreted languages such as Apple Computer's AppleSoft BASIC. 

A programming language is cliaracterized by its collection of statements, expressions and other 
components generally known as the syntax, or structure, of the language. While programs 
written in a computer language are generally understandable to the human reader they are 
totally incomprehensible to the computer. Or. in the case of the Apple TIGS the 65816 
TTiicroprocessor. ft- , •^<^±k> 

Before a statement written in a computer language can be executed by the computer, it must first 
be translated into code understood by the computer - machine language. Machine language 
consists of long lists of binary numbers CO's and I's) that are understood by the computer as a 
series ot oft and on states representing operations the computer is capable of performing Of 
course, a long string of O's and I's is not easily understood or readily comprehended by 
numans. ^ i- j 

A major part of any computer language is its means of translating programs into machine 
language. In an interpreted language, the translation is done while the program is being 
executed This procedure is sometimes denoted as "on the fly". If a statement in the program is 
executed 100 times, the translation is also performed 100 times by the interpreter Generally 
speaking, interpreted languages run slower than compiled languages because of the need for 
translation to occur during the running of the program. 

On the other hand, a compiled language translates a program into machine language prior to 
actually running the program. Thus, each line in the program is translated only once - during 
the compilation process. In addition, the compilation process discloses all of the syntax errors 
before the program is executed. Of course, the compiler cannot find errors in the program's 
logic such as infinite loops. . 

Generally speaking, compiled programs run significantly faster than interpreted programs 
in addition, compiled programs can run independently of any language processor. That is 
compiled Complete Pascal programs can run by themselves under GS/OS without Complete' 
Pascal being available. In contrast, an AppleSoft BASIC program can never be run without 
having Applesoft BASIC available to run the program (AppleSoft BASIC programs have to be 
mterpreted every time they are run, and only the AppleSoft BASIC language processor can 
interpret the code). 



Where Now? 
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That's a good question! At this point you have several options available to you. If you are: 



New to programming ^»siv;fn; 



t;pya^,4---=«!f^^-..ff3SSJiS=S5£^^ 



Familiar with another Apple IIGS 
programming language 



Read the entire User's Guide portion of this manual. 
Afterwards, study Chapter's 6 through 10 to learn about the 
five different types of programs you can create using 
Complete Pascal. 

Be certain you have a good Pascal programming textbook 
available to review the fundamentals of the Pascal 
programming language. In addition, use this book's 
Language Reference and Appendices as references to your 
work. 

-■ii=^^:f1 4^"..; r;., njiw^^--—. *-- ■■■' 

..... . .,»..,.> «... . . ,. ■ .,.*.,; .-. ■♦• .•■.,■■- 

A quick review of the User's Guide will prove useful. 
Specifically, Chapter's 4, Resources and Chapter 5, Complete 
Pascal Menu Reference will provide you with an overview 
of the key features found in Complete Pascal. 



Then, depending upon the type of programs you will be 
developing, review Chapter's 6 through 10. 

,ij^B,j^rt)sf ?oM£«V: .%.%nM*'-:ei tfse this book's Language Reference and Appendices as 
?: 2? ^^..tw*;r — " "" ' - bO'V-r.-^ss6. references to your work. 

Familiar with TML Pascal Read Appendix E - Complete Pascal versus TML Pascal. 

You may choose to skip the User's Guide entirely and start 
ftfiir^tem oi'ti %iix^r^6'iii 'ai^L^p' the soflware right away. If so, we urge you to at least review 
■".ijf-rf «i ftitfT^o^y ?i<ii 9t.4ft' ii the topic of resources introduced in Chapter 4. 
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Using Complete Pascal 
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With your system properly set up, you are now ready to begin examining the Complete Pascal 
working environment. 

In this chapter you will be introduced to the Complete Pascal editor. Chapter 3 continues this 
discussion by demonstrating how the Complete Pascal editor can assist you in actually 
compiling and running programs. 



■'rv^mm^^:?-^^i^f 



Running Complete Pascal 

If you have not already done so, insert your working copy of Complete Pascal into the 3.5" floppy 
disk drive and turn (boot) your machine on. After the Apple IIGS completes its booting process, 
you will be presented with the Apple IIGS Finder's Desktop. Figure 2-1 illustrates the desktop's 
appearance after booting your machine. 



i.-.;^i^^a^^f( scji^ -=^i«='i^TC!«>sas5*^i' ^ T-CTflrjig3»^'aj«gy.^ 
















Figure 2-1 



.imjf^^ ^<^ aafc^W^Klii v(i!p-*;r-i.vr. .^ 



Apple llGS Desktop 
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• Note: Your desktop will appear as shown in Figure 2-1 only if your 
configuration consists of a single 3.5" disk drive. 



system 



Now, invoke Complete Pascal by clicking the mouse once on the Complete Pascal icon shown on 
the desktop, then pulling down the Finder's File menu, and then selecting the Open command 
(double-clicking the mouse over the Complete Pascal icon accomplishes the same result as 
selecting the Open command). 

Opening the Complete Pascal file will automatically load Complete Pascal into your Apple IIGS 
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Using Complete Pasco! 



's internal memory. Be patient, as the Apple TIGS requires a few moments before it completes 
the loading process. Figure 2-2 illustrates Complete Pascal's Main Menu after the program has 
been successfully loaded into memory. 










v(.c:o0 "cJ t "tdr ivSuJ I«->.ft*? ^i^rt-^-'^'^ Figure 2-2 ^^r- H^a.^^" \^-^ --:<^^ vf-n'-:U- r_- ". ' v ' 
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Examining the Integrated Environment 
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Complete Pascal has been designed to take full advantage of the Apple IIGS desktop interface 
using the mouse, pull-down menus, windows, etc. This user-friendly environment makes 
programming easy, as it integrates Complete Pascal's editor and compiler into the same 
working environment. 

You have already examined Complete Pascal's Main Menu (Figure 2-2). The Main Menu 
remains just as you see it in Figure 2-2 until you choose to begin editing either a program's 
source code file or resource file. Because a program's source code file is the basis to every 
program you create, we dedicate the remainder of this chapter's discussion (and Chapter 3) to 
discussing those features available in Complete Pascal as they pertain to source code files. In 
doing so, we will reserve our discussion of editing resource files until Chapter 4, 

Figure 2-3 graphically illustrates the relationship between editing Complete Pascal source code 
files versus resource files and the way in which Complete Pascal's Main Menu changes 
accordingly. 
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Complete Pascal Main Menu 
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Source Code Editing Menu 
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Resource Editing Menu 
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Figure 2-3 

f- Complete Pascal's Two Main Menus 



ve'rJions'of cL^nZ 'p' "^TtlT '" f;*^"""' ^■'' ^°" ""' *>« switching between two different 
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Editing Source Code Files 
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^f'^'"^ windows are the tools Complete Pascal provides you for entering and modifying 
00^^^^""' "J C°™P'«'t,P^"^' «"°^^= yo" to have as many program source code files 
W fni llT' '""%f^|^'^''^ble memory allows. Obviously, the greater amount of RAM you 
have mstalled ,n your IIGS, the more memory space you will have available to create programs 
and open windows m the editing environment. 

As you open additional source code files. Complete Pascal places each file in a different editing 

l»;7t'^ ^^f °^ ^""^ independent of other open windows. Keep in mind that only 

fif UwK*^ ■" '"" ^' '"''i"\^^ ^ '™^- ^y ^="^^- "<= ^'■'^ ••^''^'•""e to the topmost window 

(It more than one is open) in which all commands issued by the user are performed. 

Complete Pascal also impleinents dialog boxes as a means of communicating with the user 

Dialog boxes are used m Complete Pascal to provide the user with requested information or to 

OK/r.n.rr.. ^^"^T^i information before continuing. Dialog boxes usually include 

P«.£l f ^ ^^°" V' ^"^^ ^"^^°"'- ^^^^^ ^"*^^°"^ ^"''^ y^" to communicate with Complete 
rascal to signify when you are finished with the dialog box. . , , 

iHsiiis'J f:di bnO uiw w^ atw^fx lifei&s* m^}-iW im-sd ^a r^isv. ■** hMV-*;- .. ." ': 



V^' 



User's Guide 



^^i'^Jl;;.' 



« 



Using Complete Pascol 



Source Code Editing Menu ^ 
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Let's begin taking a closer look at Complete Pascal's source code editing features by opening an 
existing source code file from disk. To do so, select the Open command from the File menu. 
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Figure 2-4 
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Figure 2-4 illustrates the standard Open File Dialog Box which results from issuing this 
command. Studying the figure, you will see two buttons located in the bottom of the dialog box 
which allow you to indicate whether you would like to open either a source code file or resource 
file. The Open File Dialog Box will always default to open a source code file unless you specify 

otherwise, ^'^^^i^^ ^'-'^ •^- ^f*'""^^^" ^« ^\'^^^-'"^ /^ .''^^^ .:.-: ".-f. - 

Now, open the Skeleton.p source code file using the Open File Dialog Box (It's located inside the 
Examples folder on your working disk). ^^ * f'^- ■■'-'^'-'•; f*^-^ ' V.;' -.1'.-"^ ,.> •' -x. . .. ■ . ,i. 

Immediately upon opening the Skeleton.p source code file Complete Pascal's Main Menu 
changes. As shown in figure 2-5, Complete Pascal's Source Code Editing Main Menu includes 
seven individual menus. These seven menus are designed to logically organize the several 
commands available to you in Complete Pascal. Within each menu you will find the various 
Complete Pascal commands. Using the mouse, pull-down each menu to discover just how easy 
it is to locate the editing commands available to you in Complete Pascal. Most commands 
found in the menus may be invoked by typing its corresponding commanrf-feey equivalent at the 
keyboard rather than pulling down its menu and selecting the command with the mouse. 
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Figure 2-5 
Source Code Editing Menu 
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Chapter 5 provides a concise review of every Complete Pascal menu and menu item and should 
be used as an authoritative reference. However, in addition to Chapter 5, we will be discussing 
some ot these commands throughout the remainder of this chapter and Chapter 4 - 



File Naming Conventions 



fS^-i^ y iiil 'ytHi^ •?',TV<;.1 i- 



When you opened the Skeleton.p source code file you may have noticed a few similarities with 
some of the other file names on disk. The similarities we are referring to are the naming 
. conventions used to distinguish between a Complete Pascal source code file, a resource file and 

a stand-alone Complete Pascal application for that matter. 

Although you are not required to follow the naming conventions we have adopted, it certainly 
. will make matters more clear for you as you become more involved with using Complete 

t'ascal. Table 2-1 describes the naming conventions Complete Technology has adopted for 
working with Complete Pascal 

Table 2-1 '■■" -^^^ :^H^ sm*#. os s^^lajax j^v^. Si*^frt6ffc. fe 

Naming Conventions ^ 



L j,fc l^f* /W^J>^* 



C\->fcf rii -*i^'>- !•■ 



File Type 



-,;*■-« K. 



Example J^. 



Description 



i.---- 



Source Code File 
Resource Files 
Application File 



Skeleton.p 
Skeleton. r 
Skeleton ,. 



Use a ".P" suffix on all source code filenames 
Use a ".R" suffix on all resource filenames 
Complete Pascal automatically applies the same 
name to a stand-alone application, less the suffix, 
as its origin source code filename. 

You should keep in mind that Complete Pascal does not automatically assign the correct suffix 
to the tiles you create. Therefore, you should apply the appropriate naming conventions at the 
time you initially create any new files. 



tif4^mi v4 .-. 
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Basic Editing Techniques -^,tit^i.,:»«,«--rt-.^-;x::^^'-*^r^ 



Now that you understand how to open source code files and apply some set of standard naming 
conventions, it's time to review some of Complete Pascal's most basic editing techniques. 

As you will see. Complete Pascal's editing environment includes many features similar to 
"^ some of the more popular word processing products available for the Apple JIGS. This, of course, 
should be of no surprise given the techniques used in writing a program's source code are not 
much different than those used when writing a typical letter. For example, as when writing a 
letter, writing source code requires that you be able to; 

• cut, copy, paste and undo ranges of text 

• search and replace ranges of text ;^y^^V;^si?^^i€i^'i>^ - '^ 

• apply proper indentation (tabs) 

• select a specific font and size to your liking ^-. 

• scroll through an entire file 

^i^^* print to an ImageWriter or LaserWriter :> ti-sv" ^o >^>^stH ^r.i '■■ ■; ^ -^a'^-v-^'^-^ ■ 

On the other hand, Complete Pascal's editing environment offers plenty of commands specific 
to writing and compiling a program's source code. Some examples include: ^^. - ,- 



checking a source code file's syntax 



r.v-; 






. runmng a program a „w .,....= «.«a^*kx^ ^.tJ a*:,^.w 

• creating a stand-alone Apple IIGS application 

• invoking GS/OS commands (ie. changing a file's name) from within Complete Pascal 

• reporting program error messages 



Using the source code file Skeleton.p already open in the Complete Pascal editing environment, 
you should familiarize yourself with those common Apple IIGS editing features as described 
above. For example, try using the Complete Pascal editing environment to: copy a range of text 
and paste the selected text somewhere else in the program; change the font and font size of the 
entire window; revert all changes you make to the file; and more. Remember, Chapter 5 offers 
a complete overview of every menu item found in Complete Pascal's editing environment. 

After spending a few minutes studying some of the common editing commands on the 
Skeleton.p program, you will begin to realize just how easy it is to write and edit programs 
using Complete Pascal's editing environment. """ ' 

Familiarizing yourself with the common editing commands should be fairly straightforward. 
Now, if yOu are ready to learn more about how Complete Pascal's editing environment is 
ideally suited to assist you with specific editing tasks related to compiling and running 
programs, let's move on to Chapter 3. On the other hand, if you would like to take a break, 
simply revert all changes made to the Skeleton.p source code and exit Complete Pascal by 
issuing the Quit command from the File menu. _ . , ^^^^ ..^,, ^,r{-.--iT-r - .'j^wi . <.-.■■, • 
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wbO.3 ^'"^""'^^^ "''^'" 

^ ol^er to^^^'^K ^^?''"' compiling option aVaUabl^-in Compiet;>a;;al a^ discussed 
order to demonstrate how to create applications and desk accessories with Complete Pascal. 
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Compiling Alternatives 



Du7ind Chrk s r '^^ P™er^T" "'"^ °P"°"= '^"^ compiling programs: To Memory. To 
.nVt ""1^^"'=^ ^y"*"''- The compile commands are found in the Compile menu. You can see 
each of the commands by pressing and holding the mouse button down over the Compile menu. 

fntokis OoTnTf '^r^'' w""""" 'f "J^"'^ '" ^^ *" °"'^'y°" use most •o'fien. This command 

rndowl Id f '"""S' ' "'^ '°""'= ^''^ '" ^^' "'''"' ^'i>t'"g ^>"dow (the topmost 

wmdow) and then, upon successful completion, executes the program directly within the Apple 
iiLrb s internal memory. ^ 



£ic~ Tf /r 



lot i^T^pH "^T""^" '! 'T^"" ^'^ ^^^ '^•^ ^^"^^^'"^ command except that Complete Pascal does 

aonl ^nHo ri "" 'T'i'' ^l^ '''"''^*'^ P'^^^^^"^' ^"^ '^^^'' <=^^^tes a stand-alone GS/OS 

■v ^- lr!JrlmZf'lf °" ^''^. ^°" -t" "^^ '^'^ ^^"^"^""^ ^^^^" ^^^ ^^^^ ^ ^°-P^«te running 

K^^ program free of errors and you wish to execute the program directly from the Finder. 

Pasf^\'JaZ^^''^^^-^^^^^^ command allows you to quickly verify the syntax of a Complete 

Thf. i fr^T' . T*'°" ^°^^ "°^ """ *^^ ^"^^^^^^ P^^g^^™ "°^ ^0^^ it create a disk file 

mis IS the fastest compile option available in Complete Pascal 

^scal^di'sT^'tr P°" ''.'"1°^'^ ^^ ^"'"'""'^ ^"^ °^ '^^ '^''' '="'"?■'<= <=°"'""^nds. Complete 
Drorist d "^ T? 3"'' °'"'°^ '^''"- ^^'^ '''^'og '= "=«d '» display the compfler's 

the right side of the display, the compile process has been completed. 
sHJ gafiisai' rd &Wvx^ r^stin^^ ^jfm ni*i:ff«9o 5i?&«?ii>fe T^ingie?*} fTtot fe®'-ii^'^3-.*s''f sv/ (^ -■ 

V,idJnrfc^mji'.j s\ ifl^^iiq ?-.sl!^«t0.^j- -^j ■3'W-'»i'S >-^ij?x» «<*>^fi#3 .iriEi 5»l^>^ /Hin-sti". -. '■'': '' 
jrfT r^fii^"-((^ ^^fi^f^i^?"^ ^ff^^j Jc-^^e^? ?T.*Vr:.'lt!* nsf!^ hni^ ,:^*^ -^-^ihri^fis ,z-'.{^.Y-'r- •■. 
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Testing a Program's Source Code 
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As already mentioned, tKe Check Syntax command is the fastest of the three compilation 
techniques since it does not cause any code to be generated. Instead, this command instructs 
Complete Pascal to verify that the program in the topmost window was written using valid 
Pascal key words, statements and functions. It cannot, however, check a program for correct 
logic. For example, an infinite loop in a program's source code will go undetected by the Check 
Syntax command. '-^-^a";-'- "' ■""^;^;;7^_ 7;;;r^,^..r ,,„„ ^i^«^- ,:,■ ^-^ .i m^-: %i3!0-i 'b --^^ -- ' 

To study this command, open the Skeleton.? example program provided with Complete Pascal. 
Pull-down the Compile menu and select the Check Syntax command. The Compile Progress 
Dialog Box is immediately displayed indicating the compiler's progress as it checks the syntax 
of the source code. 

When the indicator bar inside the Compile Progress Dialog Box reaches the right side of the 
display, compilation is complete. As you will see, Complete Pascal takes only a brief moment to 
compile the Skeleton.p program. The reason for this, of course, is that Complete Pascal is a fast 
compiler. In addition, the program is quite small and the Check Syntax command is the fastest 
of Complete Pascal's three compile options. 

A result of no errors does not necessarily mean a program is completely free of all possible 
errors. However, using the Check Syntax command will ensure the program does not contain 
any syntax errors. 

It is important you use the Check Syntax command when you are uncertain whether your 
program will run correctly. Since this command does not run the program after compiling it, 
you can avoid situations where your program contains logic errors which might cause the 
computer to crash. 

If an error is detected in the source code of a program. Complete Pascal will stop the compilation 
process, return to the Complete Pascal editor, highlight the exact location of the discovered error 
and then display a descriptive error message. Errors are discussed later in this chapter in the 
section "Detecting Program Errors".-^ ^^^^ .^^^ ^(U.»Ci*i£-K v« -^-^r^-" --*- *^-— -.■; - -, • ■, 



Running a Program 

Once you have determined your program does not contain any syntax errors by issuing the 
Check Syntax command, the program can then be run. To do this, select the To Memory 
command from the Compile menu. Upon selecting this command, Complete Pascal again 
displays the Compile Progress Dialog Box. This time the compiler generates code for the 
program. If the program does not contain syntax errors the compiled program is immediately 
run. 

To run a compiled program, the Complete Pascal environment temporarily shuts down by 
hiding its menus, windows, etc. and then transfers control to the compiled program. The 
compiled program is now in complete control of the computer as it executes. When the program 
has completed execution, the Complete Pascal environment restores its menus and windows 
allowing you to continue programming. 

Because it is possible the compiled program may contain logic errors causing the machine to 
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crash Complete Pascal provides a safety feature called Auto Save. If this option is turned on 
Complete Pascal automatically saves any changes you have made to the program's source code 
prior to compiling. This feature ensures you will not lose your source code changes in the event 
of a catastrophic error during your program's execution. The Auto Save option is discussed in 
more detail m Chapter 5 under the "Preferences..." section. 

To compile the Textbook.p program, first, be certain the program is in the frontmost window 
Ihe Textbook.p program uses the text screen to read 10 numbers into a binary tree then traverse 
the tree printing it out. The program then waits for the Return key to be pressed. After the 
Keturn key is pressed, program execution terminates and control is returned to the Complete 
Pascal environment with the windows restored exactly as you left them. 



Creating a Stand-alone Application ^^m^^ ^nj i^^i ^-vt,-^ -ino :^ ^ . .. 

As seen above, the compile to memory feature of Complete Pascal is extremely fast and 
interactive. However, one small problem exists - you must launch Complete Pascal every time 
you want to run a Complete Pascal program. Thus, the third compilation technique available in 
Complete Pascal - To Disk. This compile option allows you to create stand-alone GS/OS 
application that can be run from the Apple IIGS Finder by double-clicking on its icon just as you 
did the Complete Pascal icon to invoke Complete Pascal. You can even copy the compiled 
application to another disk and run it from there because Complete Pascal is no longer required 
after the program is compiled to disk, -^sfi Tft^^^fft ?^?w *^'' .*lwiJ*f»a -^tfis rd .t^fyt-. 

Let's compile the Textbook.p program to disk. Again, open the Textbook.p source code in the 
topmost window (remember the compile commands only work on the active window). Select the 
To Disk command from the Compile menu to compile the Textbook.p program and create a 
stand-alone application on disk. You will notice the compilation process takes significantly 

longer to complete this time. t^^ ^.■*^«^^-! ^^s/'i<^- ^*s;qm*''.i -^'^^^ 

The reason for this additional amount of time results from the compiled program being written 
to disk. The name of the resulting application file on disk is Textbook, and it is located in the 
same folder as the Textbook.p source code file. . _ . r 



, • Important: The name of a compiled application file is the name of the source code text 
Nv> file with the ".p" suffix removed. . .._., __ „ . . ■ : ;., 

v.'OmpJIing Units ^x^to^^ ^i^ra^^^m'tr^^mJjitJBff^**?:^^ I; . 

In addition to compiling programs, Complete Pascal can compile Pascal Units. A unit cannot 
be compiled to create a stand-alone application, but rather serves as a container for code. Units 
are used to split a large program up into smaller more manageable pieces that can be used by 
programs and other units. A unit can contain constant, type, variable, procedure and function 
declarations. K&ih i':-- ??r?i-a'iq t>*»Ht;.Tr-;;.i 

Because a unit is not capable o^ being executed, the Complete Pascal compiler acts differently 
when selecting the various compiler commands in the Compile menu. As mentioned above, 
when a unit is compiled, it does not create an application that can be run. However. Complete 
Pascal does save the unit's compiled code so that other programs can use it. Thus, when 
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selecting the To Memory command, Complete Pascal compiles the unit but then returns control 
to the editor instead of transferring control to the compiled code as it would do for a program. 
Note that Complete Pascal does save the compiled code in memory so that it can later be used by 
a program. *i fXjHoo ^vgft. ^.1i;A *rtT .-.^r.Twn^xs iS nir,->^<m4 tw"v y:.- ..,;, .v.».-- ^». i 

Units can also be compiled using the To Disk command. When a unit is compiled to disk, it 
does not create a GS/OS application, but rather, a Complete Pascal ".p.o" file. The ".p.o" file 
contains the library's compiled source code and symbol table. When another program or unit 
needs to use a unit that has not been compiled to memory using the To Memory command, 
Complete Pascal searches for the compiled code on disk in a ".p.o" file/:* • ■"■■■■ 

V Important: The name of a compiled unit file is the name of the source code text file with 
the ".o" suffix added. Thus, the name of a compiled unit ends with the suffix ".p.o". 

The Check Syntax command behaves exactly the same for both programs and units. That is, 
Complete Pascal only verifies that the unit's source code contains legal Pascal statements. 
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So far in this chapter we have discussed how to compile programs using Complete Pascal. 
However, our discussion has been limited to programs known to be correct. That is, they do not 
contain any errors. In this section, we will discover how Complete Pascal deals with errors. 

First, let's consider the components of the Complete Pascal environment. Complete Pascal is 
an integrated development tool made up of three separate pieces — the editor, the compiler and 
the linker. These different pieces work so closely together the user really only perceives them 
as one in the same. However, knowing how these pieces work together will help you understand 
the error messages Complete Pascal reports to you. t--ti— .-^^u^ ~ ■■. -t- - ■■ ■ 

The editor, of course, is where you spend most of your time. It is responsible for editing 
windows and most of the commands available in each Complete Pascal menu. The compiler is 
invoked whenever you select any of the three compile commands. The compiler is responsible 
for checking if syntax errors exist in your program and then generating code for the program. 
Finally, the linker component of Complete Pascal is only invoked when you have chosen to 
compile a program to memory or to disk. The linker is responsible for combining the compiled 
code with other pieces of code your program needs (i.e. units). It is also responsible for 
allocating the internal memory a program requires in order to run within the Apple IIGS's 
memory, and for writing a compiled program to disk. 

The editor only reports errors related to the editing environment. For example, it will report an 
error when you ask it to save a file to a disk which is write protected or to open a file and not 
enough memory is available to read the file. The compiler only reports errors related to illegal 
Pascal source code. If you misspell a reserved word or forget to put a comma where one was 
expected, the compiler reports an error. Finally, the linker reports errors when an attempt to 
create a final program fails. This might happen if you compile a program to disk and the disk 
is locked or there is not enough room to fit the compiled program on disk. - ■' ' 

When any component of the Complete Pascal environment detects an error it first takes 
whatever actions necessary to recover without causing any loss of data and then displays the 
Error Dialog Box with a descriptive error message. In addition to the error message, an icon on 
the left side of the dialog box is also displayed. This icon is used to indicate which component 
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l^sZ Tn nHa • Al ' """ T^^ "°" '^^" "™^"^ ^='P ^^^ ''^"" ""derstand the error 

Z ^^t ^ add.tmn, ,f the error ,s related to a particular part of your program's source code 
the editor displays that portion of source code in the editing window and highlights the exact 
,^^. location of the error. Highlighting usually occurs for detected compiler errors 

Editor errors are displayed with an upside down yield sign icon, compiler errors are displayed 
with a green bug icon and the linker reports errors with a chain link icon. In addition to tTe 
diZZ^ error message. Complete Pascal will display an error code. If an error code is 
displayed, it is the error code returned by the Apple IIGS Toolbox or GS/OS that caused Complete 

circum,l°.rrr.l ""'■■ S'""^"™"^ this error code can help you better understand the 

Circumstance oi the error. 

Appendix A provides a complete list of the errors detected by Complete Pascal. 
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Perhaps the most exciting addition to the Apple IIGS System Software v5.0 is the /Resource 
Manager The Resource Manager is a special tool that manipulates resources stored in the 
resource fork of GS/OS files. Recall that a file stored under the GS/OS operating system can 
have two forks - the data fork and the resource fork. A file still has only one file name but 
each tork can be opened and accessed separately from the other. 



■■^■■ n WF^i' . T' t— irsra*. 



GS/OS file *- 



fcW-PMJUl-t-W^J- 
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Resource 
fork 







a( •fS'? 
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The data fork is typically manipulated using GS/OS operating system calls to open, read, write 
and close the file The file is simply treated as a collection of bytes on a disk or some other 
storage device. The organization of data in the data fork is not well defined and is typically 
very different for each file type. See the GSIOS Reference for complete documentation 
regarding the routines provided by GS/OS to manipulate a data fork „ 

The resource fork on the other hand, is manipulated using the Resource Manager. The 
Resource Manager defines the precise structure for the resource fork and provides several 
routines for accessing and manipulating the information stored in the resource fork Complete 
Pascal implements a Resource Editor for graphically creating and editing resources, and is the 
subject of this chapter. For a complete discussion of the Resource Manager and the format of the 
resource fork maintained by the Resource Manager see the Apple IIGS Toolbox Reference 
Update, ..•.*- 
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A resource is a formatted collection of data, organized in a certain way, which represents a 
menu or menu bar, a window, alert strings, or any other number of system defined or user 
defined types of data. The exact structure for each type of resource is not defined by the 
Resource Manager. The Resource Manager only defines how the resources are stored on the 
disk, not its contents. 



pC iW.T^V 



A 



program identifies a resource by its resource type and its resource W. The resource type 
dehnes a class or group of resources that share a common format. The resource ID uniquely 
Identifies a specific instance of a resource of a given resource type. Together, the resource type 
and resource ID completely identify the resource and its format. Note that a resource ID is only 
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unique among a resource type. Two resources of difTerent resource types can have the same 
resource ID. 

The resource type is a two byte integer number. The following table shows the ranges of 
resource types. 



Table 4-1 

Apple Defined Resource Types 



Range 



Resource Type 






$0000 '^^'^ ^''^^ ^' ' 
$0001 through $7FFF 
$8000 through $FFFF 



Invalid resource type number (do not use) >^ . 
Available for application use;?, l>/m »>;>■:■;: '2C- •^■' (^ 
Reserved for system use 



Among the resource types reserved for system use, Apple Computer has predefined several 
resource types. These predefined resource tjTJes are used to store the representations of Apple 
IIGS Toolbox elements. For example, a resource can be used to define the structure and contents 
of a menu or a window. These predefined resource types are shown in the Table 4-2. 



Table 4-2 I 

Apple Defined Resource Types 



( 



Conplete Resource Type Name ^ ^' Resource Type Number (Hex) 



Yes 
Yes 

Yes '^§s^fi 

Yes ^^ ■^-' 
Yes ^^^ •=^^' 

Yes ^"^""^ ^- 

.... . .3ASJl *•? 

Yes 
Yes 



Yes 



ricon 

rPicture 

rControlList 

rControlTemplate 

rPString 

rStringList 

rMenuBar 

rMenu 

rMenuItem 

rTextForLETextBox2 



Yes 
Yes 






Yes 






J.-. 






rCtlDefProc 

rWindParaml 

rWindParam2 

rWindColor 

rTextBlock 

rStyleBlock 

rToolStartup 

rResName 

rAlertString 

rText 

rCodeResource 

rCDEVCode 

rCDEVFlags 

rTwoRects 

rListRef 

rCString 

rErrorString 



jss?ai*?affS!Ss^s£^" 















$8001 

$8002 

$8003 

$8004 

$8006 

$8007 

$8008 

$8009 

$800A 

$800B 

$800G 

$800E 

$800F 

$8010 

$8011 

$8012 

$8013 t;^ ^afjTJft'rS- Vs^l^nTi'^- ^- 

$8014 ;^ ^-„f^ .w.t*,:-^r-. >: -»r.^. 

£8015 ^rj'jii j^-KK^*' 5:i ;" ,I>Jf;-i> -'J 

$8016 ,j;»^,j ^^.;i .;!^^:7 ?i'T ir-='" 

$8017 ' .Jrv..'. 

$8018 

$8019 ^♦; yj ^y<J'-L»' u "•-■-''■'> 

$801A ,. .;^-,^o. ,^ '.s '•■■-.. .' : 

$8010 ^j,A,*. -[-i ." U' ?'>.';-«i.J'' -i-'--'- 
$801D .,^r-/l,>,K4;f ,i-^--. :.':^ • 

$8020 



■■; t 
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aZ^TucT-v^Z "^"'! '"/^ ^^^^^ ^^^'^^ '^ ^^^" ^^^ descriptive purposes. In addiUon, the 
.ZL .^ -^ interface unit Resources.p uses these same names as constants whose 

Iunnortr.Vf f^''-''' '^' '^^^'^ ^^^ ^^^^^^^^^ ^«^-™" ^^icates if the Resource EdiLr 

supports editing of the given resource. 



As mentioned above, every resource has a resource type and resource ID. A resource ID i 
four byte long integer number. The following table shows the ranges of resource IDs. 

Table 4-3 iU | j,,J ^t^jr?'? f^m *7?^*^^ | \ 
Resource ID Ranges S -..^.^-^ J i^^ _,... ....{ j 



s a 



^^^Se Resource Type 



$00000000 



Invalid resource ID number (do not use) 



tnor^rT.^ ''^""^^ $07FEFFFF Available for application use 

$08000000 through $07FFFFFF Reserved for system use 

$08000000 through $FFFFFFFF Invalid values (do not use) 



": 0w; rn'i'.U-^'.-j ¥.•.■': 



'iJ ^-••-•'l^" *7 



^tl r^^'"^ new resources a unique resource ID must be obtained for the resource type to 
which the resource belongs. The Resource Manager provides the routine UniqueResourcelD for 

nararp'fpl'"; T^"'iu ^^' ^'' ""^^ ^^^PO^tant to remember, because they are required as 

parameters to several Toolbox routines which load and create menus, windows etc 



_. T^ . j_, ._i.. ii ^ _ 



Resource Editing 

As mentioned above, Complete Pascal implements a Resource Editor. The Res^Ju^e Editor is 
used to graphically create and edit several of the Apple predefined resource types. Using the 

dirkW f>, °' ^""Vu^"" '"^^^' "'"""'' windows, alerts, strings and much more by simply 
clicking the mouse The resources you create can then be incorporated into a program in order 
to quickly and easily create sophisticated desktop applications. 



;5r ^-y^s^iss^ 3ii *4fer«m^4? :^;;:> 



Resource Document Window 

When Complete Pascal opens a resource file, it displays a window like the one shown in Figure 

ij4-;i.<3(0 ,yf©&K£w jg'5ii.?&* :'j.;3-uri';S9=r -ifravfv ni n&^a^ " . - .■tliA'' ->« ^'^iA-^iyj/i -^O'^'KS yi-r^ 
t'^-jtrj^ar*^ Jsrr?!!: y;^fi^,^i«i. U'i^T^'^ri' ^fij H'rv? *c^'!? *?r!g:'*j i^t<i'^~iMA if^f-is'^i''?-^ ^(i^i '^vs^-'fe'ti •^'•- '-'- ' ' 
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6*n ;,-37*.' 



Resource Types: lUindoiii Resources: 


t^'J >.''■■• 


$8006 Pascal String 
$8008 Menu bar 
$8009 Menu 
$800a 


o 


1001 T .r.-.. 

1002 .'^HirtJ 




' I - .' I - ! ' 1 


1 £800E Uiindoui ^^ ^ 




.-:■ -'j^y-'' 


$8013 Tool Startup 
$8015 Blert String 


o 


p -;v> ^>= 








Neui Resource Type 


Neuj Resource 




_ 











',*ci> iiJrt 'SiV? rM!i:riyn m Figure 4-1 '"'^ 

■W^^ Resource Document Window 






The window contains two scrollable lists. The hst on the left side of the window displays every 
resource type for which a resource exists in the resource file. The display gives the resource 
type number and optionally a resource type name. Only resources for which the Resource 
Editor supports are shown with resource type names. This makes it easy to distinguish which 
resources can be edited and which cannot. 



f r.w r \fi r. a 



^Ts: X\lt -iyf-^nS.^^ iU't . 



The list on the right side of the window displays each resource that exists for the selected 
resource type in the left list. The list displays the resource's ID number. In the figure above, the 
Window resource type is selected and the file contains two Window resources (1001 and 1002). 
To edit a particular resource, simply double click the mouse on its resource ID. 

In addition to the two lists, the Resource document window contains a pop-up menu and a button. 
The New Resource button is used to create new resources of the currently selected resource type. 
For example, in the window shown above, if the New Resource button is clicked, the Resource 
Editor will create a new Window resource with a unique resource ID. 

The pop-up menu is used to create a new resource when the resource type does not yet exist in the 
file. For example, in the window shown above, there is no C String resource, so to create a C 
string resource, click the mouse in the pop-up menu and select the resource name C String. 



Resource Attributes 

STMli'^ nf nWi't'ts s»Tf' *9«nJ »>"» ■vi?.-'"^- ■' '-\-- 

Every resource has a set of attributes that define how the resource can be used. The attributes 
are stored by the Resource Manager for each resource in the attribute flag word. In addition, the 
Resource Manager provides two routines, GetResourceAttr and SetResourceAttr, to read and 
write a resource's attributes- 

The Resource Editor provides an "Attr..." button in every resource editing window. Clicking 
this button displays the Resource Attributes dialog box with the current settings of that resource's 
attributes. Clicking the OK button in this dialog will update the resource's attributes to the new 
settings. Figure 4-2 shows the Resource Attributes dialog. 
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?1«.'?SJS':S?^^i^S3BS2&'-^^!£S^EE, 






Resource Rttributes 



OK 



Cancel 



D locked 

D FiHed 

Q Resource Coni/erter 

D Write Protected 

D Preload 

□ Do not cross bank in memory 

D Do not use special memory 

D Page Aligned 

® Purge Level Purge Level 2 
Purge Level! Purge level 3 



) ■ ii'J':!" . 



rl*.«:i.:' 









£3^j?5«;^?e£^ R2=r?i:.s£ssi=:'-;i^«5j-' 



UO^'?;^ 









.iKrn.'.>8»i Sfrhi^'i ,<!i jih^ bri» V--^^^'" "* Figure 4-2 ^*vUiT u-vijiv^-^^Si -^.tU -vr. ';*:;; 

Resource Attributes Dialog 

The meaning of each of the resource attributes is discussed in the following table. 



Locked 



Fixed 



If this attribute is set then the Resource Manager will call NewHandle to 
create a locked handle when allocating memory for the resource. 

If this attribute is set then the Resource Manager will call NewHandle to 
create a fixed handle when allocating memory for the resource. 

Resource converter This attribute indicates whether the representation of the resource as stored 
in the resource fork of a file must be converted to a different representation 
when read into memory. If the attribute is set, the resource must be 
converted. 



-■■^^ga^gs^5^g^i^w€g^5£^aigg^miBs;fi9g.*^^!a^^ : 



■■'3^£^Ss5i:-5;c3jr^s?*s^™--^ ■■^-iv>.-si. 



Write protevcted If this attribute is set, the resource is write protected. This means that an 
application cannot update the contents of the resource in the resource fork of 
a file. 

" t-^J^t 4- •■ ' ' . - .i^ - -^ ■ 

Preload'W^ S^* If this attribute is set, the Resource Manager mlfautomaticany load the 

,.,v^.v»fl Pfj i^^ resource into memory with its resource file is opened. If a resource is not 
J.^^-. Jtugd^ic ^«,> set to preload then it must be explicitly loaded to memory with the Resource 
Manager routine LoadResource. 

Do not cross bank If this attribute is set then the Resource Manager will call NewHandle to 
in memory create a handle which does not cross a bank of memory when allocating 

storage for the resource. 



Aw/' 



Do not use special If this attribute is set then the Resource Manager will call NewHandle to 



memory 
Page aligned 
Purge Level 



create a handle which does not occupy special memory when allocating 
memory for the resource. 



'^L' Ci.eiSLJ TJffi . ' T:~ 






If this attribute is set then the Resource Manager will call NewHandle to 
create a page alignedhandle when allocating memory for the resource. 

The Resource Manager passes the purge level setting to NewHandle when 
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allocating memory for the resource. 



- '. 



• Note: The default setting for all resource attributes is NOT set and each has a default 
purge level of zero (0). 3 ' t«»i»rt6.J : ' '^ ' ' :;' ;• 



Pascal String Resource ..<i;,a.-^,«Msi^^*.*ft^^^^>*«s« u ^j 

The Pascal string string (rPString) stores a string of up to 255 ASCII characters. The string 
begins with an integer byte which is a count indicating the number of characters that follows in 
the resource. Pascal string resources are widely used by other resource types. For example, the 
resource types rMenuItem, rMenu, rWindParaml and several of the rControlTemplate 
variations reference a rPString resource to store their titles, ^-a^^se-'i' 

Figure 4-3 illustrates the Resource Editor window used to display and edit a rPString resource. 
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f>9^oJ3 aft ^'1t:o. 





Pascal String Resource (251) 












OK 
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fliV 
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Cancel 
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rrifcrr;i1L;J;"^J ^^ ^ ^- PoscdString Resource ,.. !^., n.C^ 



C string Resource ^.^^, ikno^/Msj^t^-: hHj .'^^- jt^*^^*!^ .■: 

mI '■ i 
The C string (rCString) stores a string of characters which are terminated by a zero byte. 
There is no restriction on the number of characters in the string resource. rCString resources 
are not used often in Complete Pascal programs because Pascal provides no natural 
mechanism to use these types of strings. However, the Resource Editor does support this 
resource type as shown in Figure 4-4. 






C String Resource (1) 



( OK 



$amplei^Q::Stririg 



Cancel 






t 



Figure 4-4 . ^.^.,. '., ,^^ ._. ....,- , * 
>:;syr*-r« ?i[lc. w\ —omt^m :!j;r.in'> ^ ^^^.^^ Resource ""'"'- "■ " '"" ' 
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Alert String Resource ^«8«?'*** 'a*>«*-^-^^r] 

The Alert string (rAlertString) stores a string of characters which are terminated by a zero 
byte. The string is used with the AlertWindow function from the Window Manager toolset to 
display simple alert windows. The alert string resource stores the message to appear in an 
AlertWindow along with special codes which define the size of the window, whether or not an 
icon appears in the alert and the buttons. ... '^ „. i 

For complete documentation of the format and structure of the alert string see the Window 
Manager chapter of the Apple IIGS Toolbox Reference Update. Figure 6-5 shows the window 
used by the Resource Editor for editing an alert string resource. 



?3JP« i J -j^^^jjc 



filert String Resource (t ) 



A Pascal E»afhpte flppliGation/{^#0 



OK 



[ Cancel 



[nUrs... 



l^^Ta-9i'-><Ui$ii^ mii ^s ^ai^j^ 



Figure 4-5 
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« 'Hht •i^'.U^-^ S!?«u a5^*tdw§*©»!4 Alert String Resource ''* ^^^^ ^^ **'^ h-'4>r*<i^i- 



«^f<^K; ^{*5T^i ;;*■;■■>■; .i'.J^Ti 



ToolStartUp Resource 



,0t^ •^tri.rj!3^B^, •\'r?i^*<r:^T^^.*i ■2-. fi: 



The rToolStartup is used by an application to specify the Apple IIGS Toolbox toolsets which are 
required by the application and whether the application uses the 320 or 640 mode super hires 
graphics screen. Figure 4-6 illustrates the Resource Editor dialog for editing a rToolStartUp 
resource. 



't.ji 
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Tool Startup Resource (1) 



O 320 Mode Q 

© 6'10 Mode D 

QMisc Tools n 

DQuickdraui D 

iHDesk Manager H 

CJEuent Manager D 

D Scheduler D 

G Sound Manager D 
G Apple Desktop BusG 

GSftNE G 

G Integer Math Q 

QTextTools G 

GUJindoiu Manager Q 

G Menu Manager G 
G Control Manager 



OK 



Cance 



D 



fl 9: 



Quickdraui BuxIIiary 

Print Manager 

LineEdit 

Dialog Manager 

Scrap Manager 

Standard Tile 

Note Synthesizer 

Note Sequencer 

Font Manager ii lo tt-;,':U:^r.^if 

List Manager ^^^ ^''^^^- ■-* 

flCE 

Resource Manager ^,^^-^^jr.xj^^ 

MIDI Tools 

TeKtEdit Manager 









flttrs. . . 







,*^f>0f 



Figure 4-6 
ToolStartUp Resource 



The rToolStartup resource is used with the new StartUpTools function and the ShutDownTools 
procedure provided in the Tool Locator toolset. These two routines used together with a 
rToolStartUp completely implement the work necessary to begin using the Apple IIGS Toolbox. 
These operations include: 

1) Start the Resource Manager, 

2) Open an application's resource fork, -^ '""-fy':'^. ■ 

3) Allocate the appropriate amount of direct page memory for the toolsets it uses, 

4) Then start every toolset used by the application. 



9T 
Z'Si'iiii IVf^M^- C"^;ws'i ^vT]( it_- wrv 



seij'saJI-'-^^ft >:M.v.-in'.Hi^ ■■.' iJt:-f*^'C>«.. 



Menu Bar Resource 

The Menu Bar (rMenuBar) resource is an ordered collection of Menu resources which define a 
menu bar. The resource is used by the NewMenuBar2 procedure in the Menu Manager toolset to 
create an application's menu bar. Figure 4-7 illustrates the Resource Editor window used to edit 
a rMenuBar resource. 
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Menu bar Resource (l) 



OK 



rile Edit Shapes 



( Cancel~ 



2 File 

3 Edit 

4 Shapes ^ 



Insert Menu 



^ 



eleteMenu 



9««7I I J i I 



t?^' [flttrs...) 






:i 
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Figure 4-7 Q | j 
Menu Bar Resource ' I 



•,r. 



The long rectangle at the top of the dialog represents the menu bar currently defined by the 
resource. The scrollable list in the bottom left corner of the dialog is a complete list of every 
menu resource m the open resource file. The buttons Insert Menu and Delete Menu are used to 
add menus and delete menus from the menu bar. To add a new menu to the menu bar first 
se ect the menu in the menu bar where the newly added menu should be placed after Then 
select the menu to add from the list of available menus, and finally click the Insert Menu' 
button. To delete a menu from the menu bar, select the menu in the menu bar to delete then 
click m the Delete Menu button 
wiK'm in' SKI «^3 -'« »*msjfm5 i-m^et t*n'*m :& ^"ci jp^'i'ii,'^ '^;i- : '^o'.-;;^? 



Menu Resource 



ni»ih ».i ^".'iita?- stfTrf 'l■«Js^wviv «* int-ti jfpwf.ir rf^^^K? ti,l'\ t*Hl'Ai^ •-■■.' i\:rk. 



The Menu (rMenu) resource is an ordered collection of Menultem resources which define a 
menu Menu resources are typically referenced by Menu Bar resources, but can also be used 
directly by the Menu Manager toolset routine NewMenu2. 



giirtwT? fSTSB' 



:/.:*ri -? 



ri^lS- f. 



J^^^^-^T ^^'°^^^^ \^ ^'"^ °f two super resources that the Resource Editor supports (the other is 
the Window resource). A Menu resource as defined by Apple Computer simply stores references 
to o^/ier resources. In particular, a Pascal string resource for the menu's title and then an 
ordered list of references to Menu Item (rMenuItem) resources. Each Menu Item resource then 
in turn references another Pascal string resource for its title. As you can see a small menu 
with only SIX menu items actually consists of 14 different resources. One for the Menu 
resource, one for the menu title's Pascal string resource, and six Menu Item resources which 
reference six Pascal string resources for their titles. Clearly, creating the several menus that a 
typical application requires would be a very tedious task if each resource had to be individually 
created and referenced Therefore, the Resource Editor groups all of these resource editing 
tasks into a single dialog to make creating and editing Menu resources easy. The Resource 
i^ditor provides no direct means of editing a Menu Item resource. Figure 4-8 illustrates the 
Menu resource editing dialog. ;. ^ . 



v'\ 



t>«« 



v'j ^< T©"' ft:>-? ;if*.;rr ^oiO.^ is^ij'ft*^ i; &:i::trf'9'iM t^t'-a Vvj^-'ifw A 
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Menu Resource (1) 



OK 



Zdi\ 



Cance 



D 



Undo 



O 



Copy 

Paste 

Clear 



t^t) B 



O 



fgCT 



Insert Item 



D Bold 
n Italic 
□ Underline 
D Outline 
D Shadom 



Delete Item j 



Item id: 
Key equiu: 
Mark char: 



I 251 I 



D Divider 

D Disabled n ^.^'m^ s 



flttrs 



3 



<•>*■■ 






'■y 



f^r *iU 0; -'-SI <:'i 



- i-- 
J- - . 

r :ji.r>:''. 



y-«^sjv^ 'to 5 ait tji^qf' 

^s-m'i ."(Si^ iiOSPi siO o^ o/ism -tfffaft £i f>v; Figure 4-8 . . . _ , ^» 

,.:5H[T 7sns: i'^'pBtq ?« ^Ji^^^ f 3*^« ^' Menu Resource ^^^ J^f .Jli^Ii"^,^ 

The edit item at the top left of the dialog is the menu's title. The scrollable list in the left side of 
the dialog is the current list of menu items contained in the menu. To edit a particular menu 
item, simply click on its name in the list. When a menu item is selected, its name and 
settings are displayed in the several items in the right side of the dialog. 

The Resource Editor allows you to specify any of the five type styles for drawing the menu 
item's title and whether the menu item has a divider line and/or is disabled. In addition, you 
can specify a command-key equivalent for the menu item and a mark character. The item ID 
is the value returned by TaskMaster or MenuSelect in an application when the user selects a 
menu item. The Resource Editor also uses this number as the resource ID for the Menu Item 
resource and its title's Pascal string resource. " "' 



H^ ^AYi :^vi«imra toSikn .^iJW^H ^n SmM- ^w^-^W^ ->^^«* -^^^ ^v ftf! -• -; 



iKfM'^'i'i • l- 



Window Resource «3 -.^ir^^^n (i^r^fu^^M-^v^sK »a3^^ t.* n^-^^.^^^.' ^ - — 

The Window (rWindParaml) resource stores the necessary information to create a window on 
the Apple IIGS desktop using the NewWindow2 function in the Window Manager toolset. The 
Window resource- defines the window's location, zoom size, title, frame definition and other 
attributes. In addition, the resource can reference a list content controls. Content controls can 
be buttons, check boxes, radio buttons, edit text, scroll bars, pop up menus, etc which appear in 
the content of a window. :-^x^c^a"' '^'■^=*-« ij"-'^'*^^ ^— ' ■ '.r.;*'„ 



,^,,,^, 



..U -:: 



■.A.. 



The Window resource is the second of the two super resources the Resource Editor supports (the 
other is the Menu resource). Like the Menu resource, the Window resource can reference many 
other resources. A window can reference a Pascal string resource for its title, and if the 
window has content controls, it references a Control List (rControlList) resource. A Control List 
resource then references several Control Template (rControlTemplate) resources for each 
button, check box, radio button, edit text item, scroll bar, pop up menu, etc that appears in the 
content of the window. And further each Control Template may optionally reference a Pascal 
string resource for its title. Clearly, creating a Window resource would be a very tedious task 
if each of these items had to be created individually then referenced appropriately. Therefore, 
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the Resource Editor groups all of these resource editing tasks into a single dialog to make 
creating and editing Window resources easy. The Resource Editor provides no direct means of 
editing a Control List or Control Template resource. Figure 4-9 illustrates the main Window 
resource editing dialog. .^^ j ^^^^ ^„..,J*?wy^6*^> ■ " § 
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Window Resource (1001) 



OK 




[ Cancel 



Center ] 

] 



Frame 



Controls... 



.-3ssser='^- ^-T.s^ 



O320 Mode 
®640 Mode 



,: f-^i^'iftissj «^>oi 



[fltirs... 
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Figure 4-9 

Window Resource 



n^\ /^l 1'^ ^^ ^^^^ '" ^^^ ^^"*^^'" °^^^^ dialog is used to represent a 50% scale of the Apple 
Ar /I ? '"! ^ window. The window represents the location and size of the window as 
dehned by the Window resource. To change the location of the window, simply click in the 
content area of the window and drag it. To change the size of the window simply click in the 
size box m the lower right corner of the window and drag. The Center button can be used to 
quickly center the location of the window on the desktop. The 320 Mode and 640 Mode radio 
buttons are used to inform the Resource Editor what graphics screen mode will be used when the 
windovv IS created. The Resource Editor uses this information to properly scale the window size 
m the dialog. 

The Frame... button is used to invoke the Frame Definition dialog to display and edit the 
windows frame information. The Controls... button is used to invoke the Content Controls 
dialog to create and edit the content controls that belong in the \vindow , - . , 



Window Frame Definition 



^. j"j •>■- 



The Frame Definition dialog, as shown in Figure 4-10. is used to define the window's frame 
attributes, zoom size, content data size and information bar height. 
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tliindouj frame definition 



OK 



Title: 



D Title bar 

Q Close boK 

n fliert frame type 

n Uertical scroll bar 

Q Horizontal scroll bar 

D Groiu boK 

D Zoom boK 

n Moueable 

D Quick in content 

D Uisible 

G Information bar 

Q Zoomed 



f Cancel 



Zoom top: 
Zoom left: 
Zoom bottom: 
Zoom right: 

Data height: 
Data width: 
Info height: 
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Figure 4-10 

Frame Definition Dialog 






r— — ""rrr\ hrame uennmon uiaiog . ^, ^,,^^ ^:^ y 
The meaning of each of the resource attributes is discussed in the following table. 

Table 4-3 OOW«>i-»M W--/^>V 

Resource Attribute Meanings 



Attribute 



Meaning oi^ls^^I ^M ^Anssc-r^te't y?e»Ri^ 



Title bar ?a-i rjo" 
Close box 



Set if the window has a title bar. "' ^' ^^^^^^•' ^"^- '^ ' "^ ' 
Set if the window has a close box. ' ^' --^"s^it »3l; •^\-'^»'i o-i l-^lv: -^ 



Set if the window should be drawn with an alert style frame instead of the 
standard document style frame. An alert frame is typically used for 
modal dialogs.^. ^ ,^|^,j.:5 .ais-^r??.? sr. •, .'m-;»«>-. ■..-■-- ■ ■ - '• - - 

Vertical scroll bar Set if the window has a vertical scroll bar. 



Alert frame type 



Horizontal 
scroll bar 

Grow box ^"■"^ "* 

Zoom box 

Moveable 

Quick in content 

Visible 



Set if the window has a horizontal scroll bar. 

Set if the window has a grow box. ^ „-,, ,.,, - ir'-'.^-'^' ■''>i-- •'" " ' 

Set if the window has a zoom box. 

Set if the window's title bar is to be treated as the drag region for moving 
the window on the desktop. 

Set if a mouse click in the content region of a window (not in the front) 
should select the window as well as be treated as click in the content. 

Set if the window is visible when created. 
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Information bar Set if the window has an information bar. 
Zoomed Set if the window is initially zoomed. 



Zoom rect 



Defines the top, left, bottom and right coordinates of the window when 
zoomed. 



■ Data height/width Defines the size in pixels of the window's height and width. 
Info height Defines the height of the information bar if the window h 



as one. 



• Note: The default setting for newly created window's frame definition 
displayed in Figure 6-10. 



are as 



\^' 



Window Controls Definition 



The Window Controls dialog as shown in Figure 4-11 is used to define the window's content 
contro s. The content controls are the simple button, check box, radio button, scroll bar, size box 
static text picture, icon button, line edit, text edit, pop-up menu, and list. To create a new control 
simply click the mouse on the control palette in the left side of the dialog box for the control type 
desired then click the mouse in the window content area in the position where the control should 
be placed. 



Windouj Content Controls: Definition 




OK 



Figure 4-1 1 

Window Content Control Definition Dialog 
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Complete Pascal Menu Reference 



Pn^nl f p"" '""°," ^ <=o™Plete reference to the commands available and contained in each of 
Complete Pascal s seven menus. Complete Pascal's seven menus are the Apple. FUe Edit 

bv ent'eHn". ■ ^l"' ^"^ ^^?^ '°^""^- «"^" *«' '""«' -^"" commands can be Issu d 
relea, nl t^ eo^mand-Ae,- eg«.„a/e„is rather than clicking the mouse on the menu and 

thllToVtlnhaSr"^"" """"^"'- ^ •^'^'="^='''" of command-key equivalents is provided at 



The Apple Menu 



tS'>^-A ^MJQ^ 



IZ^r^""""^ '" a standard menu for Apple IIGS desktop applications such as Complete 

two oarts thp'ri^T!^ f f o '"" '" ""' '"'^"" ''"• ^" ^™P'^t^ P^^-^^'- *== Apple menu has 
(nX) L^n.hl P°°'', . o"'"",'-" """"^"d ^"d *e list of installed new desk accessories 
d^sk aLe«l '" .''n'^ '^^''^'- ^"'^"=^- '''^ "=' ""^^^^ accessories depends upon which 

desk accessories are mstalled on your particular system disk. Figure 5-1 may not match your 
menu exactly. ,,jf„,jo fi^^ jg^ (pswssM *wB> 9^i^ »«)SB siM 'jd i5«v^>r *} ^ 



About Complete Pascal... ? 



I'^n^f,'^''" r '^°7P'^'^ Pascal... menu item displays the About Pascal Dialog Box. The dialog 
conta ns Complete Technology's' address and phone number. More importantly, the version of 
SpascaTwaK" """' "' """""'''' Technology's' copyright notice also appear in the 



Desk Accessories 



»iirli OT«W^ K<kl«;&i«i^n[« «rt^ i^t****^ *S?»f;^i»i '*^^'i^ ftWl-'M'^*' J-c'*-^ AT't- 



The desk accessory menu items represent each of the NDAs installed on your system disk 
Kecall that desk accessones must be properly installed on your bootable system disk to be 
available. For a desk accessory to be properly installed, it must be in the DESK ACCS folder 
which can be found in the SYSTEM folder. Selecting a desk accessoiy name from the Apple 
menu will cause that desk accessory's window to be opened on the Complete Pascal desktop. 



K^ 
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Rbout Complete Pascal c5 ^ 



Control Panel 




Apple Menu 
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Open "NDA"J.4^" ia^-ne'-^ 'si*i.f(iKeO rd .i«^ ^f'?^■f: ^f^ *'i* '-'^'^^ ^'^^ '^'^ ■•<'""''* 
.............. ^:.f^h -*-:n h«aai:.m :i« i«H »rf5 bK* biiismv^^-J'i ...!^'^a~M ^t^n^'^^'^'f ■ 

The Open "NDA" menu item is only included in the Apple menu when you have compiled the 
source code of a New Desk Accessory program to memory. The actual name of the menu item 
will be the word Open followed by the name of the desk accessory that was compiled. The Open 
"NDA" command works just like any of the other desk accessory menu items, that is, it opens 
the desk accessory causing it to display its window. 



Remove "NDA" _ ^ .,_ , , _: _ 

Like the Open "NDA" menu item, the Remove "NDA" menu item is only included in the Apple 
menu when you have compiled the source code of a New Desk Accessory program to memory. 
The Remove "NDA" menu item will close the desk accessory if its window is open. It then 
removes the desk accessory's compiled code from memory and deallocates any memory the 
desk accessory may have allocated. After the desk accessory has been removed from memory, 
the Open "NDA" and Remove "NDA" menu items are removed from the Apple menu. 
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The File Menu ^-.-- f-* « ?-«**» jf^ ^fJ'fl^/ILj. .,-■ ^.:. 

The File menu contains the various file related commands (Figure 5-2) in Complete Pascal. 
The menu items are grouped into three basic categories: accessing disk files, printing, and 
exiting Complete Pascal. Following is a description of each menu item contained in the File 
menu. 
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Figure 5-2 

RIe Menu 



nec?*.> 



^ 



New 



.sn t„.^:^i.^^ .. Jn* r. 



This item opens a new source code text window or resource window. The new window becomes 
the active window ready for editing. Before the window is created. Complete Pascal asks that 
you name the file associated with the window and specify whether the window is a text or 
resource editing window. Complete Pascal allows as many windows to be opened as available 



memory permits. 



.t'lriiisjt ^i^Vuc? ai.^4-^LA ajluwi 
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upen ,,;ifl.w« i,5w»i vft 4*^ft.!S o*AF* 
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The Open menu item displays the Open File Dialog Box (Figure 5-3) allowing you to select 
file for editing or compiling. 



Close w M*K^5 ^ -s;* ? 

This menu item closes the active (topmost) editing window. If the source code contained in the 
active window has had changes made to it since last opened, you are prompted to save the 
changes you have made. ™ ~ ~ 



.i$'^ ;5iC^'*l) g.af^ ^&H.{ *--rt&it<|0 iflif^ 2iiS sv^-i'.-i/ ^<\'-' :• 
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Open File: 

^^l: Pascal: tKampIes: 



Q] ClockNDn.p 
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Disk 




Open 



Close 



Cancel 



® Source Text File O Resource file 



Figure 5-3 
Open File Dialog Box 
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Save 

The Save menu item saves the contents of the active window. The original file on disk is 
overwritten by the contents of the current window. «.^^ i^^j_ *Vj-: « t;,'^> war' y* rm^t- ^" .. " -' 



Save As... . 'Z!'-. ..'.j\. 



.-<.,^,Ka f^Ks^vf ,-=,injrt»r; r^iib^'J^ ■>!-\Uh'' 



Selecting this menu item allows you to save the contents of the active editing window to a new 
disk file. To do this, you are again prompted with the Put File Dialog Box to name a file for 
this window. If the filename you choose already exists in the specified subdirectory, you will be 
warned of this and asked if you wish to replace the existing file. Save As is not available for 
resource files. . . ., . 



Revert 

This menu item will cause all of the editing changes you have made to be replaced with the 
most recently saved version of the file. You will be asked to confirm this choice before the 
operation is performed. Revert is not available for resource files. __ ^ _i 



,» « -. ~- 



Print Options... 

This menu item displays the Print Options Bialog Box (Figure 5-4). 
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Figure 5-4 

' Print Options Dialog Box 

Pascal^ •n1!Z ' P''g^"™l';^= fP^nt Page Numbers). If an option is checked, Complete 

headeHs not nrinLT''''°^ ^"^ information in the header. If none of the options are selected, a 
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Page Setup 

This menu item displays the Page Setup Dialog Box (Figure 5-5). ^ ''' " " ' 

I!!ffwT r^*'"^ °n^^°.? ^'''' '" """^^ *^° configure the way Complete Pascal prints a page. There 
on thTfir'str-* ^^"^^"^''"f «"^^-^ Sheet. If Continuous is selected, a header is on^ printed 
This onHnn "^ ^ ' ■ ?^ ^^^""l *'""' ^"' P""'"^ ^^ ^^^ ^"^ ^'^ beginning of a piece of paper, 
^s mi.nl r ^^'^^^^^^^^^^ the number of lines that can be printed on a page. However, if the paper 
IS misaligned, a line of text may print on the perforation in the paper. 

if *i, r< i. OT. ^ , . . »^^2A «^ «S ih4^^ feiixa aavJ owa Aiw^-'^'- i^d ^ vn-: ■ ' ■ 

Printed at thr^nH^K '"'^^■.^'^'f" '^ P'^'-t^^ «' the top of eve.7 page, and blank lines are 
Hn« nt n, . t \^^""'"/f ^^"^ P^ee. When this option is selected, the number of 

lines per page must be set. The default setting is for standard 8 1/2 by 11 inch paper. 

feor^e!tt^. p''^'. ^''r^ °'''^°/ ll" ^i'"^' ^^^ '" ''"^" ^ =P^"^' character sequence which 
eZrlrne rZv \ ^™'"'»"<J- ^he character sequence is sent to the printer before printing 
font sizi nit r ^^"""/"-^ =^" b<^ "^''d to instruct a printer to use a special built-in font, 

L Iqrn 97^^ appropriate letter that defines the control character. For example. -[ sends 
an AbUll 27 (an escape character). 



"s_/ 
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Figure 5-5 

Page Setup Dialog Box 



Print 

The Print menu item causes the contents of the active window to be printed to the printer through 
the currently selected serial port (slot). The text is printed using the built-in font of the printer. 
Complete Pascal does not use the Apple IIGS Print Manager for printing. 

If the Option key is held down when choosing this command. Complete Pascal prints the 
currently selected text in the active window rather than the entire contents. This is especially 
useful when editing large files. 



Quit : >^Am I-.. V, ^^i^^^4 -^ he^ ^^M H W/y-t*5 r,-T. *5--^u .<^r ^u- .n 



i^S'-'-J ■ 



Selecting Quit closes all open windows, allowing you to verify whether changes made to each 
window should be saved, and then exits back to the Apple IIGS Finder. 



.t— -ij' 9kr=i<^±^TXi^ fej'r-- Kr.--;- ^"*;--" '*■ ■■'"■■■* 



The Edit Menu ....... -,mr,0^ « t^nn^ *^ c^x**^*^* *^ ^*^'^ ■^"-'^' f ^'';'; "^'' \i 

The Edit menu contains several useful editing commands. The menu is in the standard Apple 
IIGS format thus allowing it to be used with desk accessories. See Figure 5-6. 



Undo 

The Undo menu item allows you to undo the last editing change made in a source code edit 
window. Note that after you complete an editing operation and begin a new one, the previous 
edit operation can not be undone. Every new editing operation starts a new undoable operation 
and the ability to undo past edits are lost. 
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Cut 



Figure 5-6 

Edit Menu 
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This command cuts the currently selected text. The operation deletes the selected text from the 
active window and saves it into the clipboard. ,^^^_^ 



Copy 



This command copies the currently selected text, but does not delete it from the active window 
and saves it into the clipboard. 



Paste 



The Paste menu item copies the contents of the Complete Pascal clipboard into the active 
window at the current insertion point. If text is currently selected then it is deleted before the 
paste is performed. ^^-^^^ ^^^ ^ ^Maa^s*! ^Ai :^!>. i^m &m^'te^s. ■ «>«;.- u 



Clear 



■v 



The Clear menu item deletes the range of selected text from the active window, but does not 
it into the clipboard. 



save 
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Select All 



-J.V"***'***"-^- ' 



This command selects all text contained in the active window. It is a shortcut for selecting all 
text rather than moving to the beginning of the text, clicking the mouse, and then moving to the 
end of the text and shift-clicking. 
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Set Font & Size 



vO 



The Font & Size menu item is used to select the font, font size and tab width used by the 

Complete Pascal Editor for the active edit window. 

1^5 <?^* : 



The Search Menu 



■^ t^^> 



The Search menu contains a collection of commands which perform search and replace 
operations (Figure 5-7). The Search menu also contains a Goto command that scrolls the 
window content to the location of the current insertion point. 



*Hi i?^v. ^-:i*i hf^ 
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i File Edit 




IDindoui Compile GSOS 



Find- ^f 

Find Same C3 6 

Find Selection oH 



Replace... ^^ 

Replace Same "^T 




Goto Selection 







Figure 5-7 

Search Menu 






Find... 

This menu item displays the Complete Pascal Find Dialog Box allowing you to specify a search 
string. Upon entering a search string and selecting the Find button in this dialog, the search 
begins from the current insertion point (not the beginning of the file). 



Find Next 

This command searches forward in the active window, from the current insertion point, for the 
next occurrence of the Find... string specified in the Find Dialog Box. Upon locating the next 
occurrence, the active window scrolls to display the string. If no occurrence of the string is 
found an error message is displayed. ^, ^ 



Find Selection 



't « &-'■ 2» .vfXivr'-^a av'^-% ;^-i.- 



This command searches forward in the active window, from the current insertion point, for the 
next occurrence of the current selection in the window. Upon locating the next occurrence, the 
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active window scrolls to display the string. If no occurrence of the string is found an error 
message is displayed. 



I."*.! 31! J.'■Ul^«*i^rf^'*l c^anA ■t<f.rf,i..'. tlai*. •i.-v>A »; 



■**•■'> '^trJi^.' K>«j-i*'Mi -(• -'t i-.i-t»'.: Ji.-**f = 



Replace... 



>fc?*fcli/'V^W?* ^M'li'l^j':! G 1*^ ^-**^«rt: J>*1 ■■J-tiJ^TTi^-^^rW^SiytL** Sii ^ li^.r 7^ r^-^i^^i 



This menu item displays the Complete Pascal Change Dialog Box allowing you to specify a 
search string and a replacement string. Upon entering a search string and selecting the Find 
rlS "^ this dia og, the search begins from the current insertion point (not the beginning of the 
U\el When the string is found is replaced with the substitution string. Upon locating the next 
°*=5'^^:?f;?.®^y?e. active window scrolls to display the string. , ■ 



\~-' •J5"i--t< 



Replace Same 



This command searches forward in the active window, from the current insertion point for the 
next occurrence of the Replace.,, string specified in the Replace Dialog Box. Upon locating the 
next oecurrence,the text string is changed and the active window scrolls to display the string 



Goto Selection 

This command scrolls the active window so that the insertion point (or currently selected text) 
IS visible in the window. 



The Windows Menu **®^**''***'^^'^^^ ^"^ ferfrjp»sj^©& ...s^^x^^ssM h^a bA: 5- .■ i ■'•.,■ 

Pn^ w"'*S''* menu provides several commands to arrange the open windows within the 
Oomplete Pascal desktop and obtain information about the windows. The Windows menu also 
conuins the name of every open window on the desktop. Selecting the name of a window in the 
Windows menu brings that window to the front. Figure 5-8 shows the contents of this menu 
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Figure 5-8 

Windows Menu 



O 
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The Next Window menu item places the active window in back of all other open windows on the 
screen and brings the window directly behind the previously active window to the front. This 
command provides an easy method of switching between windows when it might not be possible 
to click on a window because it is completely covered by another window. 



Get Info ,;' ' 

The Get Info command displays a File Information Dialog Box. The dialog box displays the 
following information about the active editing window: the full pathname for the file associated 
with the editing window, its size in bytes and the number of lines. ' 



Last Error 
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This command displays the Complete Pascal Error Dialog Box, displaying the most recently 
encountered error. 
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The Compile Menu ^"^^ m^m^^^ *^ ^^^ ^^ ^-^^'^^ " ^^' « ^ ^* ^' ■ 

The Compile menu (Figure 5-9) contains the commands which invoke the Complete Pascal 
compiler. When invoking the compiler, the contents of the active editing window are compiled. 
Also included are the Add Resources... command and the Preferences... command^--..? •:,•. 
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Figure 5-9 

Compile Menu 
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To Memory 

This command invokes Complete Pascal to compile the source code contained in the active 
editing window. If the compilation completes successfully and the active window contains a 
program which is an application (rather than a unit), the state of Complete Pascal, including? 
all open windows, is saved and control is transferred to the compiled application Upon 
quitting the compiled program, you are returned to Complete Pascal with all of your windows 
in tact- 

If the contents of the active window is a unit rather than a program then there is no program to 
run and therefore, no transfer of control out of Complete Pascal. Instead, the compiled code for 
the unit IS retained m memory so that other units and programs which use the unit will have 
access to its code. 

il W--^— ..i.-.^ »-..,. .M-j, i-w—aa ...<_>../.»».■ i^^^l.t ! . "• .- ( *^'. *. 



To Disk 



The To Disk menu item invokes the Complete Pascal compiler to compile the contents of the 
active window to disk creating a stand-alone GS/OS application file. v r 

'■ St 

iVi'^r/''^ ''*ot^'"'"*'f "^"^ '" ^^^ ^^^^"^^ "^^"^^^ '^ ^ program then Complete Pascal creates an 
6J6 (fiietype $B3) application load file in the same directory as the source code. On the other 
hand. If the source code is a unit then the unit's symbol table and code are saved to a " p o" file 
in the same directory as the source code. 



Check Syntax 



-^i-j 
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The Check Syntax command invokes the Complete Pascal compiler only to verify that the 
source code contained in the active window consists of legal Pascal statements. 



Add Resources... f^B 

The Add Resources... command is used to attach resources created by the Resource Editor to an 
application When the menu item is selected it presents an Open File dialog so that you can 
designate the resources which belong to the application whose source code is in the topmost 
editing window. When the source is compiled to memory or disk, the Complete Pascal Linker 
copies the resources in the specified file into the compiled application's resource fork. 



Preferences... 

&!*:• sd o=^f« xe-m *£s« timt^' fr-'H^ .«Wt<^ .^^^ &* HI 

Selecting the Preferences command displays the Preferences Dialog Box. The Preferences 
Dialog Box is used to configure the Complete Pascal editor and compiler to your particular 
needs The information presented in the dialog is grouped into three major categories- 
Compiler, Editor, and Memory. In addition, there are three buttons: OK, Cancel and Release 
Memory. The Preferences Dialog is displayed in Figure 5-10 with its default settings The next 
several paragraphs describe each component of the dialog in detail 

Before discussing each compVnent oH& P^e&ences DiaYogranexplanation of edit text items 
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and check boxes is in order. An edit text item is an item contained in the Preferences Dialog 
which requires input to determine a components value, whereas a check box acts as an on/off 
switch. These two mechanisms are the means by which you modify each component of the 
Preferences Dialog Box. sIro« ostitis ^rtr a«qK'-^-v ^i-? ifl^-:'* ; -^^riH-*'--*- ---■"- •■ ■■ - 

Simply position the cursor over an edit text item, click once and begin typing to enter the value 
for its component. Check boxes, on the other hand, are modified by positioning the cursor over 
the check box and clicking the cursor once to toggle between on and off states (a check 
representing "on"). 
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K-Byte Stack Size 
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Preferences Dialog Box ■^--^' ■..>"' ^'^ ■: 

K-byte Symbol TableThis option allows you to specify the amount of memory the Complete 

Pascal compiler should allocate for a symbol table. A symbol table is 
the data structure the compiler uses to store the declarations of labels, 

__..■,.-■ , -.- — , — ^ variables, arrays, procedures and functions. For most all programs, 

the default size of 12K bytes is sufficient. However, larger programs 

. may encounter the Compiler error Symbol Table Space Exhausted. If 

-t- v-Hb'? s-'Tts^^sS compiling a program encounters this error, then you should increase 

:^^o''--cv Jhi{* c« ^l&i ^^ value of this setting. 32K bytes is the largest setting allowed. This 

>' {xtf^^l sfUm it ^hi s®*^*'^"^ ^^^ ^^so be lowered if you are running short of memory and are 

• '^^ J«-rtfl'j ^«i '113 co^pil^ng small programs. The smallest allowable value is 2K bytes. 

K-byte Stack Complete Pascal programs require a data structure known as the 

^^. Runtime Stack. The default value of a 8K byte stack should be sufficient 
for most Complete Pascal programs. This value can be changed from 
IK to 32K bytes. The Stack size may also be changed by using the 
$StackSize directive^ 



Keyboard Break 
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The Keyboard Break option is used to implement the Control-C abort 
mechanism. ^^^^ ^^ ^,^^^ .«eijmn^ in 



.r'-.^r '.A'V .z^ir'Jhm it' If this option is turned on, Complete Pascal generates code between each 

statement to check if the control-C character has been typed. If this 
option is turned off, it is impossible to abort the execution of a Complete 

i:ft*^Vi ■ssr> '-;?v^ "^'^ '.■■>; Pascal program. The only way to do so is to reset the Apple IIGS. If you 
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do not use the Control-C abort mechanism you should turn this option off 
^.=iS.5j^.-;.:=^^.^--K'_^;sj. _ so that your progrrams will be smaller and faster. 



' \\^ 



This option may also be turned off and on using the $KeyboardBreak 
metastatement. See Appendix B. 



Unit Search Path 
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Auto Save Text 
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The pathname specified here is where the Complete Pascal compiler 
searches for unit flies which have been specified in a USES clause The 
default value for this option is l:ToolInterfaces: which specifies the 
ioollnterfaces folder in the same directory as the Complete Pascal 
compiler. This is the folder which contains all of the Complete Pascal 
predefined units for accessing the Apple IIGS Toolbox. Recall that 
Ooraplete Pascal first searches in the current source code folder first for 
a unit file and then the path specified by this option. 

The Auto Save option allows you to specify whether or not changes to 
any ot the editing windows should be automatically saved before 
Complete Pascal transfers control to a compiled to memory application 
You should select this option if your program is in the early stages of 
development and might cause the Apple IIGS to crash when run If this 
option IS on you will never lose any editing changes you have made but 
not explicitly saved, however, it does slow down the compile cycle since 
it must write to the disk. 

Total System Memory Obviously, this value can not be changed while Complete Pascal is 

running. The total system memory is displayed for informational 
purposes only. The value represents, in kilobytes, the amount of RAM 
Mn sdJ *£^rf5 Ski Hi "len^ory mstalled in your machine..rf4 *X!^«Eatfc li«^.*fs-^-> t>.it 

Free Memory This number indicates how much memory is currently available This 

number is important because, it reflects whether or not Complete Pascal 

W-, — ..-™^„... .- "3S enough memory to open a new program file, compile a program to 

memory ,^ etc. Because Complete Pascal retains various pieces of 
information m memory, this number can sometimes be increased by 
selecting the Release Memory button described below. 

Largest Memory Block This value indicates the largest block of memory available for 

use by Complete Pascal. 



OK Button 
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Clicking the mouse in this button (or pressing the Return key) indicates 
that you want Complete Pascal to accept all the changes to the 
Preferences dialog you have made. After choosing this button the 
dialog disappears and Complete Pascal updates all options and settings 

Cancel Button-.«,c, ^, Clicking the mouse in this button causes Complete Pascal to remove the 
:^^.^c.-^^^ ^.^{ipm dialog, and to ignore any changes made to the options and settings and 
--H ^4»i-<irui;v to leave them as they were before the dialog was opened. 



Release Memory 



r-? 



This button IS used to release all memory associated with programs and 
I'rc'^n*', *" ^^^ ^^^" compiled to memory or loaded to memory by a 
Ubbb clause. Selecting this button will usually adjust the Free Memory 
and Largest Memory Block values. Clicking the mouse in this button 
does not cause the dialog box to close. 
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Complete Pascal Menu Reference 



The GSOS Menu 



a a«^ c^i^ '^^ ii^miJ-.5 i'H ofttw t.R -. 






4 File Edit Search Window Compile Umi 



The GSOS menu provides access to three GSOS commands (Figure 5-11). 




-ims ^.^rf - -viJofTioo 5a5 ^v/3o v-roJ3 ^^^Si Figure 5-n ^'■^^- ,..— - 
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Rename .,. 



.*. -.- ^ y^ -i 



^'^C.^icS^tr 
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The Rename command displays the Rename File Dialog Box allowing you to choose the file 
you would like to rename. After selecting a file, you are prompted to provide the new filename. 
The new filename must be a legal GS/OS filename otherwise an error results. 

le:a^sH 9J^Iaiir^:> -t?-rt ■H>s*H5a4"» ^^^^ n ^v-^^^ .:^^^^j- ■■■•■ ■_^-^ 

Delete 

The Delete command displays the Delete File Dialog Box allowing you to choose a file you 
would like to delete. After selecting a file, you are prompted to confirm that, in fact, you would 
like to delete the file. If you confirm that the file should be deleted. Complete Pascal will 
permanently delete the file from the disk. 



Transfer 



^itj> H^ 
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The Transfer command displays the Transfer Dialog Box allowing you to choose an application 
you would like to transfer control. Upon selecting an application, Complete Pascal asks you to 
save any changed files and then automatically quits and invokes the specified application 
without returning to the Apple IIGS Finder. The only way to return to Complete Pascal is to 
launch it from the Finder again. 
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Textbook Applications 



Texfiooft applications are complete stand-alone, double-clickable applications that can be run 
trom the Apple IIGS Finder or. for that matter, even designated as a startup application What 
makes Textbook applications special is that they require no knowledge of the Apple IIGS 
loolbox. In addition, Textbook programs represent typical applications one might find in a 
t'ascal textbook. Hence, the name Textbook applications. Textbook applications are the easiest 
type of programs to create with Complete Pascal. 

Complete Pascal actually supports two types of Textbook applications: text screen and graphics 
screen applications. Text screen applications execute using the 24 row by 80 column text screen 
display of the Apple IIGS, while graphics screen applications execute in either the 320 or 640 
mode super hires graphics screen display. For discussion purposes, text screen Textbook 
app ications are sometimes referred to as simple Textbook applications, while graphics screen 
iextbook applications are sometimes referred to asGraphics Textbook applications. 

This chapter discusses the fundamentals of setting up a simple text screen application. Chapter 
7, on the other hand, provides an explanation of a graphics screen textbook application. 



Text Screen Textbook Applications 



Text screen applications are the default type of Textbook applications. And, as mentioned above 
the text screen application executes using the Apple IIGS 24 row by 80 column text screen 
lAA-f-'^' Tf ^ ^^^^ screen programs do not require any knowledge of the Apple IIGS Toolbox 
Additionally, text screen applications cannot support any type of graphic display. 

The following "Hello World" program illustrates the basic structure of a text screen Textbook 
application. When this program is executed it will display the message "Hello World" on the 
first line of the text screen, wait for the user to press the Return key and then terminate 



PROGRAM HelloWorld; 

BEGIN 

Writeln{ ^Hello World'); 

Readln; 
END. 



The Complete Pascal distribution disk contains a larger text screen application named 
rextbook.p. 
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Graphics Textbook Applications 
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fhP Wh '"'™'^";=.'''^ **> ""ft basic of the five types of programs Complete Pascal can create - 
the Textbook application. This chapter shows how this very simple type of program can be 
easily extended to support graphics, hence the name Graphics Textbook applications 



if^HliBV^=-i c/i--; 
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Graphics Screen Textbook Applications 

While text screen Textbook applications are simple to write and require absolutely no 
knowledge of the Apple IIGS Toolbox, they are strictly limited to text input and output on"y 

llZTt^r^^' M^'f'"''' 'T''" '^'^""''"''^ applications are implemented by Complete Pascal in 
of text ,r.°"T '"^'^^^"f. ""tP"' by your Pascal programs while maintaining the simplicity 
of text screen Textbook applications. Namely, as little knowledge of the Apple !lGS Toolbox as 
woumTi; '^'■"P'"'^ ="<=^" Textbook applications are a good place to start programming if you 
undJrtind U fT" ^Plementing limited amounts of graphics rather than having to 
understand all of the complexities introduced with the Apple IIGS Toolbox. 

?2o'!!'/6Yo"m'„H J'T^°\tf '''i'''';'°"4."f '''^ ^PP''' "^S ="P«' ^"'^ Sr^^^^'-' screen in either 
r«t=,n.ll ? • T*""'- '^"^ APPl« nGS QuickDraw toolset can be used to create text, lines. 

IddS he Aini'' nrT,? ^"f 17 ""'■' °*'' ^^"^''^ P"">i«ves supported by QuickDraw. In 
addition, the Apple IIGS Event Manager is initialized and the mouse is activated 



The Graphics Procedure 
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Graphics screen Textbook applications are implemented using the predefined Complete Pascal 
Graphics procedure (see Chapter 20). i' ^ ^ ^=.^.<ii 



PROCEDURE Graphics (screenMode: Integer) ; 



:-yo-. 



The procedure has one parameter used to indicate whether the 320 or 640 mode super hires 
screen should be used and should be called at the beginning of a program. The Graph" 
procedure initializes and starts the Apple IIGS QuickDraw toolset and turns on the super hires 
graphics screen using the designated mode. The graphics screen is initialized as all white and 
aoes not contain a menu bar or any windows. 
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Graphics TextBook Applications 



The following example illustrates how the Hello World program shown in the previous section 
can be rewritten as a graphics screen application. Note that the only addition is a call to the 
Graphics procedure. 

■,;nv.'? PROGRAM HelloWorld; i^' ^ -^ i C H ^ .■« -- * '-' 
BEGIN 

Graphics (640) ; 

Writeln( "Hello World'); 

Readln; ^ , . - . . 

Of course, this program does not use any of the QuickDraw graphic routines. However, it is 
important to notice that the standard Pascal Readln and Writeln routines still operate in the 
graphics screen. In order to begin adding some degree of graphic operation, the program must 
use the Types and QuickDraw units (see Chapter 8 and Appendix C). ■* 

The following program illustrates how graphics might be added to our simple Hello World 
program. 

PROGRAM GraphicHelloWorid; 
... ;«..USES Types, ,:..^ .... :n^ ri^orJfiW^;-^ ;4o«iJv^.r -t^M". - .vrWi^'W . 

^H-^f^: QuickDraw; ' ".»^^m^ i^a^^^ lu-^^X ^(5 J^^-"^ ^:5i.'*?i.nUj »■ ■ ' -^ • ^ 

*D-ad1VAR aRect: Rect ; ^^ SiisH aa ^.I^H/nV- sm-tfro;;^!-; ^^>^'^ ^ ' ^ ;,^^- - ■ 

«^srV BEGIN -a^.a^lt^fi ^^O^.. . "- ■ • ^ ^■-V'5 - ■ ; - 

,,i\^i. SetRect(aRect,10,10,30,40); bsii'^i':^ ^r^.Jr.^cnsUlim .^-^^---.^ ■•.• ■ ■ 

FrameRect (aRect) ; K »ii? ^^^ bf^ij^^i^- ;Tft5*ivf*^>:r.:^i^i:> i.- ^0 ;.- .■ - 

^i.dn^ m - OffsetRect(aRect,25,30); ..A»^ ss» e^k>.4^j:(?^« ^'""l"'- T^'-J:^' ' s!- 

OffsetRect(aRect,25,30); __^^^l^f -.^ --^r^f^^^ ^^^^^ ^--' ^'^i^' -■■' ' 
FrameRRect (aRect,20,20) ; 



iilH<"ilW 



MoveTo(50,30) ; S.'ir,i>:---i --^'V > ^'''' *V-* 

Drawstring ( "Hello World'); 

.... ^^T.r..-.;:^ U«;r^iis*rTR *i?ss!':^* ^.??^ma^?*?? ^>-(« sHeaea^tes i.-^-?.-.?^? -..■,. 

The Complete Pascal distribution disk contains a larger graphics screen Textbook application 
named Graphics.p. i ',.»«^»J'j.tt :*^--Tt>.v>>-.'>oi-! '7>^ ~'-;^->- '-:■'-■' 
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u^^derstLrnrnf r T "se,- interface. Desktop applications require at least a basic 

understanding ofhow to program with the Apple IIGS Toolbox. *-*—», "i oas.c 

' Complerptt'r i^if r """" "" '^'"'^ "' '""' '" "-^"'^ °'=^'^"'P applications using 
aI^^IT n ■ -. ^ "" ""'''"' ^"y ='"empt to be the final word on the subiect 
CoTnW% "T't' ^ '"""'^'^ "=""e "f "^<^ Toolbox interfaces implemented by 
how they work W^sT"'^'","'' documentation is provided on what these routines do or 
now they work. We strongly recommend you obtain a copy of the Apple IIGS Toolbox 

fotixxtnt ^f?,:: ?o^iU:""*- ^^^--- ^"^^^ -^^-^^ -" pp-^^ ^omputt:.: 

^l^^oZlll'P^^^^^^^^ 'T"^^ %--? -1^ ^° ^ ^^-P'^ <^-^top application. 

- Pascal Drodntf « n^nf '\^^^^^t°"-P- Of course. Complete Technology's Source Code Library 
Pascal product a contains broad range of example desktop applications for you to study. 



The Apple IIGS Toolbox --^ - 

charatto TWoIl°K •'' '' ^ large collection of software which gives the Apple IIGS its 
each tooTset?re n? '' 7^''?"''' ':^''' ''^^''^^ functional groups called toolsets" and within 

IIGS l°X"y„%""'"«™'^^f""^t'<>"=• Complete Pascal provides complete support fir the Apple 
IIGS System Software version 5.0 including its new additions to the toolbox. 

The toolbox which is part of System Software version 5.0 consists of 30 toolsets The toolsets mav 
toofs thel " "^ T'" '"r""""' categories: the seven basic tools, the d sktop nter'ace 
too ' tL f Yl'' • '^^'' "'"^•^; ''^^ °P"^""S environment tools, the so^nd tools and he ma h 
tools. The following diagram illustrates the functional organization of the toolsets. 

?.>3-iH -''^quS o*i-J ni ix»i bna s45'^i,<itj 's^mi-^ ^WK-ib hr:;i 80M 'I'li^jA 
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Resource Manager I 










'*" ?f^ ""i?"]^' The Seven Basic Tools 






Math Tools 



QO(>«r, Sound Tools 
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The Seven Basic Toolsets ,«idtooT gWU *.i<-K; 

The seven basic toolsets provide the framework upon which all of the other tools are built upon. 
All of these tools are used in event-driven programs. ^ \ . 

The Tool Locator is the most important of the Apple IIGS toolsets. The 
Tool Locator allows you to load toolsets from disk into RAM and is 
responsible for locating a toolset routine when a program calls a Toolbox 
procedure or function, ffw.ii^* strJ^smei fwsaa^g? -^ ?^«m ^^ ' ^^ ■- ;- - ■ 



Tool Locator 



Memory Manager The Memory Manager is the second most important toolset. This tool is 
entirely responsible for the allocation, deallocation, and repositioning of 
memory blocks on the Apple IIGS. The Memory Manager keeps track of 
how much memory is free and what parts are allocated and to whom. 
Whenever a program needs memory, it must ask the Memory Manager to 
allocate it. 

Miscellaneous Tools The Miscellaneous Tools consist mostly of system-level routines 

that must be available to most other toolsets. 



QuickDraw 



QuickDraw is the toolset that controls the graphics environment of the 
Apple IIGS and draws simple objects and text in the Super Hi-Res 
graphics screen. All other tools which create graphical objects such as the 
Menu and Window Manager call the QuickDraw toolset. 



Progfamming 



-|:-.r'i;^«\0 



Desktop Applications 



K^ 



V^ 



QuickDraw Auxiliary This tool contains additional graphics routines which complement 

b'sK •!?:?« cjiiiea 9i^-? i^-^tne QuickDraw toolset. ^.^SEner 

Event Manager The Event Manager is responsible for detecting system events such as 

iVQr.Kg«^^^^/TOt5& -u! mouse-chcks, keystrokes, window updates, etc. It queues the events and 
T't a^ftiixjoi f>ffT .t?i>l then delivers the events to an application as requested. 



I.-^A -U. ™^^, 



Resource Manager The Resource Manager is responsible for implementing access to and 

manipulation of the resource fork of a GS/OS file. 



i*,-«* ,.,„--^ .r. 



Desktop Interface Tools 



.4.,-, ..^^J-^ ! *.. ^1 



The toolsets m this group support the Apple Desktop Interface. The desktop interface is the 
I ^^1,'"m . T^^" *^^ ^'^^ ^^^" application and the computer. It includes the menu bar 

and the blue colored area on the screen. Applications usually have documents on the desktop 
displayed in windows and perhaps other graphic objects such as icons. Applications 
implementing the desktop will always use the Menu, Window and Control managers and 
usually most of the others as well. New Desk Accessories are supported by the Desk Manager. 

Control Manager The Control Manager consists of all the routines necessary to manipulate 
controls. Examples of controls include scroll bars, radio buttons, check 
!>^* <v..A,^t.^.> („ boxes, etc. 

Desk Manager^ The Desk Manager is the tool which enables an application te support both 

classic desk accessories and new desk accessories. 

Dialog Manager The Dialog Manager provides the routines which allow an application to 
-fr.-^^i'l 8«^im.^ "^^^^ ^"^ "^^^ ^°^^ ^'^*°^ ^"""^^ ^"^^ ^*®^^^ ^s ^ "^^^"2 °f communication 

Font Manager The Font Manager is the toolset which allows an application to make use 

of different text fonts, font styles, etc. within QuickDraw. 

Line Edit Line Edit is used to display and edit a line of text on the screen and allow 

a user to edit the text. 



-■ !.•■ .-<.■ 



List Manager The List Manager is used to create, display and allow selection of a 

variable amount of similar data 
Menu Manager The Menu Manager controls and maintains the use of pull-down menus 

and items in the menus. . 

Scrap Manager The Scrap Manager implements the desk scrap, which implements the 

Cut, Copy, and Paste operations of an application. .% 

Text Edit Manager The Text Edit Manager implements a multi-line text editing tool which 
iU>i/r,s ^-n-mi irft supports multiple fonts and font sizes, rulers and more. 

Window Manager The Window Manager creates the desktop environment and is 
*io'A 3r:j ur^i^ p^ responsible for the creation and manipulation of windows. ,.„-. ,• . 
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Desktop Applications 



Device Interface Tools 



The toolsets in this group are used to manage input and output between the computer and 
peripheral devices and a program. 



.&* l«.-...'S? ,;,.!"" 
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Apple Desktop Bus The Apple Desktop Bus is a method and a protocol for connecting input 

devices, such as keyboards and mice with the Apple IIGS. The routines in 
this toolset are used to send commands and data between the Apple 
Desktop Bus Microcontroller and the rest of the system. '^-^^*'^'- ' "'-' 



, » J>1!-|"1")<? Vif'.l 



Print Manager 



Standard File 



The Print Manager allows an application to use QuickDraw routines to 
print text and graphics to an ImageWriter or LaserWriter. — "-^ 

The Standard File toolset implements the standard user interface for 
specifying a file to be opened or saved. =^^.„.,.,^. r-.--"- -ffiii i--.' ■::.'*^v. ■ ' 



Text Tools^-- ^*-'*^-' The Text Tools provide an interface between the Apple II character device 
.jo^.Hsorr vrJ nr. ie*i drivers, which must be executed in emulation mode, and applications 



Operating Environment Tools ^ =J* '<j wirf=;:^o ^s^r. 



!t«. :iiw!n.". 



The operating environment tools control the interaction between low-level hardware and 
software functions. While not listed here, the Memory Manager and Miscellaneous Tools 
toolsets implement similar low-level operations characteristic of the Operating Environment 
tools, and in many cases interact with these toolsets. 



Scheduler 



;floa "^ 



System Loader 



The Scheduler delays the activation of a desk accessory or other system 
task until the resources which that task/desk accessory requires become 
available. This avoids potential system crashes when more than one task 
attempts to use the same resource at the same time. 

The System Loader is responsible for loading and relocating code for 
applications and desk accessories to memory. 



Sound Tools .,,« -1 -r ^j.r 



.-. =.-.T3^:^„t 



The sound tools implement the many sound related capabilities of the Apple IIGS sound 
hardware. In particular, the ENSONIQ DOC chip. Other toolsets implement MIDI and audio 
compression and expansion. 



Sound Manager 



The Sound Manager provides giccess.to tlie Apple IIGS's sound hardware 
for creating basic sounds. 



Note Synthesizer The Note Synthesizer is used to create complex musical sounds 

simulating a variety of instruments using the Apple IIGS's sound 

hardware. * = >^^,\u c«'f' -:'.u;^"ii ■ ■ ' 

.■i.,,... >^,.,^*-^ ->fc «.!* 2«Je3?.i -i^tdina-K* \vo?;fiiW 5*^- t>4'- -*^- 

Note Sequencer The Note Sequencer is used to string together notes from the Note 
Synthesizer into sequences, patterns and phrases that make up a song. 
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ACE 



MIDI 



The Audio Compression and Expansion toolset CAGE) implements a 
collection of routines which compress and expand digital audio data in 
order to conserve storage requirements. 

The MIDI toolset implements a Musical Instrument Digital Interface for 
the Apple IIGS through either of its serial ports and the Apple MIDI 
adapter. 



•.^.^:\T! J. 
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Math Tools 
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The math toolsets implement a wide variety of complex mathematical operations for both 
integer and floating-point calculations. 
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Integer Math 
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SANE 
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This toolset consists of a varied collection of operations for integers, long 
integers and signed fractional numbers. These include multiplication, 
division, conversions, etc. ^ ^ 

SANE implements the Standard Apple Numeric Environment. It is an 
extended-precision IEEE 754 conformant implementation of floating point 
arithmetic and transcendental functions. 



f(0<Jl; **TT&£V»<J5b ,*!ui-E*«u) it* sn ^i)VJ^*.s:s^ J? ^^ttJsa ?g i>STaf->3i? ** .rr»=?iaorf $ !t; 't;'i*.:;i'T ;■-■' 



How Calling a Tool Routine Works 
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This section is intended for advanced programmers who want to understand how a tool routine 
IS actually invoked from Pascal. If you are content with the fact that everything works and that 
the tool routines are essentially additional built-in routines then feel free to skip this section. 

Complete Pascal provides for programmer access to the Apple IIGS toolsets via a collection of 
Pascal units. These units declare all of the procedures, functions, types, constants, etc. for each 
toolset in order that they can be used from the Pascal language. There is one unit for each 
toolset. Each of these 30 toolsets are listed together with the Pascal unit which declares its 
interface in the table below. Appendix C provides a complete source code listing for each of 
these units. ,ip;j*f>; ^. ^figijjga ^i \-^if^ s, nii^lv 

Table 5-1 ^«?^<vit St^ ffiitj*^ j^iNs ^d» fti ^-•Hk->0'»C= o i> s>?v r:=-E, ■■.■■, 

Apple IIGS Toolbox ■ . . 



Tool Number Tool Name 



Pascal Unit 









iool Locator -j^isw? f ^V 

Memory Manager i^J,; 
Miscellaneous Tools I 
QuickDraw II 

Desk Manager „^j ^^,^^^ 
Event Manager 



Locator.p 

Memory.p ^^ ^^-^.^^ 
MiscTool.p ^^ _^,, 

QuickDraw.p 



-.).i 



fi-. 



Scheduler 
Sound Manager 
Apple Desktop Bus 
SANE 
Integer Math 



iU'Ur-i^ 






Desk.p ^An^<^i^tU 

Event.p ., ,, ,,n ^;,:-. 

Scheduler.p;,^,^,.,.;,...;^ 

Sound-p 

ADB.p ^.._., ,... 

SANE.p .^' :.:^: '>:* 

IntMath.p 
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Desktop Applicotions 



.ijrK^iT-:i^^^vfn sfe«<M 



Tfe*qr^i 


ii^i^fvv 


.? :T-'^^:•■ 


i-*l-.i!»CU 


'J(.'' ,' 


If 


'i'5'-ii> 




■ V'if* 





■a .'^r:-sii^.jn:£ {-l^UA; Text Tools '» ;i>-:i-:.- TextTool.p ^■;-^ 

i'ti ■M^J-'Hbiif' i*i'-S-*fo Window Manager b--.-;' Tfv Windows. p '-•••'• 

IS Menu Manager P'^^- >tt--"-'J' Menus. p -->C?ix. 

3^ Control Manager Controls.p 

■:a> 33fe1^i.i' 'fi.?i*iRJ, Jj System Loader Loader.p ■■"'■ 

^CllM y^fl^A ffHI fwifi QuickDraw Auxiliary Routines QDAux.p ' *'J^* 

^ Print Manager Print.p '/*^— 

§0 Line Edit LineEdit.p 

.^„. 21 -> -— .^- Dialog Manager — -^ — .~.^..« Dialogs. p - —~ 

IS Scrap Manager Scrap.p 

23 Standard File StdFile.p 

- . its ., r Note Synthesizer .^ ^, ■„.. NoteSyn.p 

% Note Sequencer NoteSeq.p 

Sff Font Manager Fonts.p 

2B , - - List Manager =■ Lists.p 

^^'!'\:^Xi1!J .^^J. Audio Compression Expansion ACE.p 

Resource Manager Resources. p 

MIDI .^^^.c. -^jQjp 

Text Edit Manager TextEdit.p 

Each tool routine in a toolset is declared as either a procedure or function, depending upon 
whether or not the routine returns a value on the stack, and may have zero or more parameters. 
The procedure or function declaration is completed with the TOOL directive. The tool directive 
is a special extension to Complete Pascal for the specific purpose of declaring interfaces to the 
Toolbox. . . 

The following procedure declaration is taken from the QuickDraw. p unit, and is the interface to 
the MoveTo procedure in the QuickDraw toolset- 

ia r.<T. PROCEDURE MoveTo(h,v: Integer) r-^y*^'?^^ Tool 4,58; ^ *^^ *-^^^'"^-*^ -^^ ■■■^' '' ' 

As you can see, the procedure declaration is completed with the tool directive Tool 4,58. The 
first integer in the tool directive specifies the toolset to which the routine belongs. In this case, it 
is toolset number 4 which is the QuickDraw toolset. The second integer is the function number 
of the routine within the toolset. Every routine within a toolset is assigned a unique function 
number. The MoveTo routine is assigned number 58. Together, these two integers uniquely 
identify the MoveTo procedure in the entire Apple IIGS Toolbox. 

The Apple IIGS defines a consistent mechanism for invoking a Toolbox routine. To invoke a 
Toolbox routine, space for any function result value must first be reserved on the stack followed 
by pushing the values of any parameters. Then the 65816 X-register must be loaded with the 
desired Toolbox routine's function number and toolset number such that X-register = 256 * 
function number + toolset number. Finally, a jump subroutine long instruction is made to the 
address $E10000 which then contains a jump into the Tool Locator which finds the code 
associated with the desired Toolbox routine and passes control to it. Upon returning from the 
Toolbox routine, all parameters have been removed from the stack leaving the function result 
value (if any) on the top of the stack. In addition, the 65816 processor's carry flag is set if an 
error occurred during the execution of the Toolbox routine, and, if this occurs, then the 65816 
accumulator register contains an error code. . , ^ 

By using Complete Pascal's tool directive with a procedure or function declaration, the 
preceding conventions are obeyed. In addition, Complete Pascal will generate a store 
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accumulator instruction to the Pascal global variable ^ToolErr so that potential error codes 
returned by a Toolbox routine can be examined. 

Thus, an invocation of MoveTo(16,20) would generate the following 65816 instructions. 

pea 50010 

^M»v pea $0014 JS5;c'%<ji5 *fli ,i, - «?^7h&--:iiBrx''^ ir^ii ?..':-i.*fi'-fi,;--.- 

^fi» «- Idx $3A04 "it ^i^ li \iiiHm^ ; 58 * 256 + ^^.-t?-!^ y^v> --. ;?'^ --li;- ivi^ -iff"'.; - 

■»0'f jsl SEIOOOO ^ ^P.ii ,»q4V ^?cht« ii «ftoj> T*),<j ,-^i-?';-j ?iiv/ ;-;••!!■ o.-;.' itr.: V. : • 

sta _ToolErr :. ,atS ,ifls?>rs ffStf-^m a ^li^v^ fo-rKodi^s ■? is "jd b\ii-:;> '. ■ 

In order to allow programs written in Complete Pascal to perform error checking on calls to 
Toolbox routines. Complete Pascal has defined the special function IsToolError which examines 
IMMPDIa"^^^^^ f. P[°^^^^or's cany flag. The IsToolError function should only be used 

IMMEDIATELY after a call to a Toolbox routine to ensure that the state of the processor's cany 
tlag has not been corrupted by any intervening operations. • 

Thus a program written in Complete Pascal might use the following code to detect an error 
which occurs m the Toolbox routine MoveTo. 

MoveTo (16, 20 ) ; 

if IsToolError then j^-..._ *.' ...V- ' 

- svToolErr := ToolErr; ^ 

Writeln( 'Error occurred in MoveTo, # ' , svToolErr) ; .^^ .^= 

end; '"■ *'■' ' ' '- " 

^«nV w'^-f^f ^^)^u- °^-?'°°^^^'' ^^s fi^st saved to the temporary variable svToolErr before the 
Tn ^;^"*^^'"-. ^^'/ \s because Writeln itself makes tool calls that would destroy the value of 
_looJlLrr associated with the en-or condition returned by MoveTo. 

There are at least three cases where the compiler's generation of the STA ToolEn instruction 
is not required. These are the following: 



p'-*r / *» ^-vi '1* '^*< ***-w^- . 



• Many Toolbox routines do not return errors (this is the case in the above example). 

• An application has otherwise guaranteed that all possible error conditions do not exist. 

•An application is not effected if an error occurs, proceed regardless (usually poor 
programming style, but sometimes appropriate). 

If these reasons occur often enough in an application, then the generation of the STA _ToolEn 
instruction can potentially increase the size of an application's code unnecessarily To avoid 
this possibility Complete Pascal provides the $ToolErrorChk directive to turn off and on the 
generation of this instruction (see Appendix B). 

Z ^^^"^P^^' tlie following call to the Toolbox routine MoveTo would NOT generate the STA 
_iooltrr instruction. 

f5ToolErrorChk-} 
-■ MoveTo (16,20) ; 

While use of the $ToolErrorChk directive can save a considerable amount of code the 
programmer must be very careful of its use in order to avoid erroneously checking the value of 
^looibrr when the directive is turned off, and therefore „ToolErr has not been assigned an 
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error code. .jfj^Jtoa iR4i «k =it.H!.- T^ ^ilrfiw-ixv i(ui'-l-;^ W-..>,^-i i^:^:.' v-' ■v^'")-'(* ■■ ■--■* " ' • 



Event-Driven Programming 

Desktop applications are event-driven programs. That is, the application is driven by events 
from the user, not the other way around. An appUcation usually has few clues as to when the 
next event from the user will occur, nor does it know what kind of input it will be. For 
example, it could be a keyboard event, a mouse event, etc. 

An application decides what to do from one moment to the next by repeatedly calling the Toolbox 
Event Manager function GetNextEvent or the Window Manager function TaskMaster. The 
program's code which makes these repeated calls to the toolbox is called the main event loop. 
The Toolbox Event Manager will inform the application of which action is to be processed next. 
Based upon this information, the application can take appropriate action. An example of one 
possible implementation of the main event loop using TaskMaster is given in Program 5-1. In 
this example, only a mouse click in the close box of a window, a menu selection and a mouse 
click in a window's content control are handled by the application. All other event processing 
is performed by TaskMaster. 

Program 8-1 
Main Event Loop 



, „__.^ 
procedure MainEventLoop; ,;^.. 

var code: Integer; 
begin ■.■<;'•-.. 

^rf- gMainEvent.wmTaskMask := $001FFFFF; I Allow TaskMaster to do ,- .; 

>r^ H«fje ^*i^' «*^2-^ 'w^^ *-j.n«>-^ ".Kv„ . everything. 1 ■ . ., ,. . ■^' .- 

■ gDone := false; =-^-^^ ^ ^*^*^^^ '^ ^ " ' '^' ' ' ' 

^..^.^ repeat ^T.. m^ ^ >. ^iU^^^^ t..^^'^H ^^_^ S^l^^iJ-r'!- V^^- ■ ■ 
code := TaskMaster ($FFFF,gMainEvent) ; 

case code of , ^,^. .^..- _c.. ^^i. ^ ^««' ::^^^^ ^^ ^ - '' ' - * 

-s wInGoAway: DoClose; 

.'.^. winspecial, W^ >^^.-tr:^^^^ "^^^^^^^^^ ^^^ ./^l-^--- ■ ^- " ' 

.,Sai*$ Jf-n ■ „inMenuBar: HandleMenu; 

wInControl: DoControlHit; ^^ .^ y. H^ii^^,^ ^^^ -*t :.i?i*»5:'',^:- -A 

l^sq end; - Xi^^J^tmj^ -*«B^^^:^^^ ^-"^ .>^^- ^t^"-' ' ' •^•' ' 

until gDone; 

end; { of MainEventLoop 1 r. ^.,i.^^i*^u.» .... «: Jft^.n^flH:^ k:.v^pi '^&--:r>: nn^.-j.'*'! <•-■■ 



Clearly, different applications will handle different events in different ways. The following 
table identifies each of the GetNextEvent and TaskMaster events. For detailed information 
about events, consult the App^e /7GS TooZioa: i?e/erence. ....:-..,-.... -. ■'- 






Programming ....,,..,(;; W --.=■, Desktop Appllcotions 



w 



,wtti>iv:'t' fe'!n f^^y'jf v/'?';'. -iji,; >m '■:■ tuiffm }fvi:':> trf.'-yk-''.- r^-*"^i A 
Table 8-3 

GetNextEvent Event Types lo y^e^id s^ti sj-j; rtt b5-:i*f:wo Jr!?V5> nwg-ii-^u^r^.'.i A 



Type 



Occurrence 



nullEvent 
mouseDownEvt 
mouseUpEvt 
keyDownEvt 



Reported when no other event is available. 



Generated when the user presses the mouse button 
Generated when the user releases the mouse button. 



euQtc; /•. 






-iX A 



^•i '* fv"! 



auto Key Evt 



updateEvt 



Generated when the user presses any character key on the keyboard or 
keypad. The character keys include all keys except the Shift, Caps Lock, 
Control, Option and Apple keys which are modifier keys. 

> A ^ *■ .. . . ■:■ 

Generated when the user holds a key down. The auto-key is generated after 
an initial delay and then at periodic intervals. 



activateEvt 



This is an internally generated event indicating that the contents of a 
^> .-fl-gfem window need to be updated (redrawn), _ 

This is an internally generated event when a window becomes active or 

.,. . inactive- That is, when a window moves from back to front or from front to 

'^^3»5S^*««5»^SKE back respectively. 



switch Evt 
deskAccEvt 



Generated when a switch control is pressed. 



Generated when the Classic Desk Accessory menu is invoked via the 
Control-Apple-Escape key sequence. 

dnverEvt ' ^'' ' Generated when a device driver performs a PostEvent due to some 
circumstance, usually when data transmission has occurred or has been 
interrupted. 

?f?4S^?£?^^ ^^^""^ ''^^ ^® ^'''^'' different application defined events generated. The 
^irti "^®^"^"& °^ ^"ese events are defined by the application and entered into the 
■ ■' ■ " event queue using PostEvent. ' 



TaskMaster Event Types mfn^^^'i ^iiy^'O ^*i;*- j.:. .r. 



wInDesk 

vvInMenuBar 
wInSpecial 



win Con tent 
win Drag 



-im U i | .J>— iMfell Ml 



A mouse-down event occurred in the desktop (not in any window). 

A mouse-down event occurred in the menu bar and then released over a 
menu item which was not a desk accessory from the Apple menu or from a 
menu added by a desk accessory. TaskMaster tracks the mouse until it has 
been released over a particular menu item, thus selecting it. ,^,.,. . 

A mouse-down event occurred in the content region of a window. 

A mouse-down event occurred in the drag region of a window. 
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wInGrow A mouse-down event occurred in the grow icon of a window. 

wInGoAway A mouse-down event occurred in the close box of a window. ?'"-*■ 

wInZoom A mouse-down event occurred in the zoom box of a window. ..^ . 

winlnfo A mouse-down event occurred in the information bar of a window. 

wInFrame A mouse-down event occurred in the frame of a window. - <j . . 

wInactMenu A menu item was selected that was inactive. . ^. 

wClosedNDA A desk accessory was closed. .... 

wCalledSysEdit System Edit was called. =* s'^-^^ r3,»->p>iBn- :'iIT bfiO<- -■ 

wTrackZoom A mouse-down event occurred in the active window's zoom box but was not 

T^fii is%iAi!dn^^m released in the zoom box. !iEic-r. t^-j^ vf,-. a^s-v*. vv*=^= .- ■' 

wHitFrame A mouse-down event occurred in the window's frame of the active window. 

wInControl A mouse-down event occurred in the content region of a window, but within 
the bounding rectangle of a content control. 



Program Structure }i^..^;^ *.= u.^^m.^ dru-^^ ^^ ^itv. ^^v^ • 

The source code for a desktop application can, of course, be organized according to the 
programmer's own requirements and desires. However, every desktop application will share 
the same fundamental main program structure. That is, every desktop application must start 
up the Toolbox toolsets it requires, initialize any application globals, create the application 
menus and windows, process events, and finally shutdown the toolset used by the application. 

The following code fragment is from the source code of Skeleton. p's main program. An 
important thing to notice is that the program source code references resources. In this particular 
case, the StartupTools function references a StartStop resource which defines the Toolbox toolsets 
required by this application. See Chapter 4 for detailed information about resources. 

Program 8-2 

Skeleton.p Source Code Fragment ^ *-««^ ^*^r«-*s»s ? 



gMyMemorylD := MMStartUp; """■ "" "" 

gStartStopRef := : , . ^. ^ .. , 

'■* StartupTools (gMyMemorylD, ReflsResource, Ref (kStartStopResID) ) ; 
^ if ToolErr = noError then begin 



? I 



InitializeGlobals; - , .. , ; .,..■,» ,: -' 

SetUpMenus; i'-^-^^-- — *■" - — -'■* *"*"" ' 

SetUpWindows ; » -^ • £ ,-# .. - 

InitCursor; ^ _^ ^^ _^^^ ^^^^^ ^^^ ^- L,,,^.., ^r-.V. r.^Va^ ^ --^^^"-^ A 

MainEventLoop; ' " "' '■- 



Programming ^r,M:-^i - ^'^° Desktop Applicotions 



K^ 



* ShutDownTools(RefIsHandle,gStartStopRef); T ^ifi M} ^Kiiua »'.'..i^.:i"? 1.-..^.. - 

Before starting out to program your own applications, you should spend some time studying th 
complete source code and resources of the Skeleton.p application to understand the basi 
structure of a desktop application. ,.,.,•- 



Adding Resources to an Application • - 

As shown in the example program above. Complete Pascal programs can not use resources 
And, Chapter 4 explained in detail how to use the Complete Pascal Resource Editor to create and 
edit resources. However, in order for an application to use resources, its resources must be 
copied into the resource fork of the application file itself. The CTI Linker performs this 
automatically as part of the link process. The resources copied into the resource fork of the 
application are those found in the resource file specified by the Add Resources... menu item of 
the Compile menu. 

.^.■^.^--. . - - - -^ ... ^ .^.,.-- ... ..-, ,^, . ^ 

To add resources to a program, bring the window containing the application's main program to 
the front. Then select the Add Resources... menu item from the Compile menu and select the 
appropriate resource file. Complete Pascal records the selected file so that each time the 
application is compiled its resources are copied into the application file 



Definition Procedures (DefProcs) ^s^^s ^^ w. imr^-^m^ ^^s^^h *?-.:> ^.-^m ^.a:.^; ^r. ^ .. . • 

Often times, the Apple IIGS Toolbox routines must call a procedure which is actually part of 
your application. These types of procedures (and sometimes functions) are given the name 
Definition Procedures, or DefProcs for short. The reason for the name definition procedure is 
that these routines are generally used to allow the application to provide a custom definition of 
some generic operation. For example, there are Menu Definition Procedures which allow an 
application to provide customized drawing procedures for drawing the representation of menus 
-- perhaps a menu that contains a palette of colors rather than a Hst of text items (see the 
Complete Source Code Library - Pascal for an example of this). As you might expect, the 
loolbox also allows for definition procedures of windows, controls, lists, etc. 

Another component of the Toolbox where an application must use definition procedures (and the 
most hkely), is with the NewWindow2 function in the Window Manager. The NewWindow2 
routine contains several parameters, one of which is the address of the window's content 
definition procedure. <i ^?t^^me^*-rf& ohisUmr lteefei% h>^i*p^ 

The content defProc routine is called by the Window Manager whenever it detects that the 
content of the window must be updated (redrawn) because a portion of the window's content 
which was previously hidden has become visible. ■;,■ — - — ---k - ^.-««.-.ww=. ...-.,. -. . 

As you might expect, Complete Pascal's memory model may not be in place when a definition 
procedure is called. This can happen because the procedure is being called from the Toolbox, 
and ]t IS likely that the Toolbox has temporarily changed the state of the 65816 in such a way 
that effects the way Pascal global variables are addressed. 

Typically, global variables are addressed using the 65816's absolute addressing mode versus 
the less efficient absolute long addressing mode since Complete Pascal ensures that the 65S16's 
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Data Bank Register points to the memory bank containing the program's global variables. 
However, in the case of definition procedures, Complete Pascal's convention may not be obeyed 
by a particular Toolbox routine (ie. the Toolbox routine has temporarily changed the value of the 
Data Bank register). Thus, it is necessary to inform Complete Pascal that a particular 
procedure is indeed a definition procedure and that it will be called by the Toolbox so that it 
guarantees the data bank register is set to the appropriate data bank when the procedure is 
called and then restored when the procedure exits. This is accomphshed by using the $DefProc 
compiler directive. For example; 



{$DefProcl rtC^if^^.O-^^'l-V^A ^-D O- -^''..-^-K--. '=' ,"" 

PROCEDURE WindowContentDraw; 

ZS31L- ^^^"""^ ■ -• ' '--« '*■• '■■■■ ,^/r>iii m.fi:^?'*'-:*" ^h«fJ-''--' *■ '-' '■' '' ' 

, * redraw the window contents 1 ^ ^, ^,_,( jij^-j^S i-\ t'-c. "■>;;:■ -- ?- 's>i >.- 



'Ml :■' 



Large Programs and Segmentation 

The Apple IIGS limits the size of a application's code and data segments to 64K bytes. Code 
segments contain the application's executable code, while data segments contain the storage 
required for the application's global variables. The reason for this size restriction is that a 
segment must not cross the boundaries of a bank of memory. On the Apple IIGS, a bank of 
memory is 64K bytes. Thus, in order to develop applications which have more than 64K bytes of 
code or 64K bytes of data, the program must be segmented. Normally, Complete Pascal creates 
one code segment and one data segment for an application. To obtain more than one segment, 
the compiler's $CSeg and $DSeg directives must be used. 

Code segments are named so that the CTI Linker can organize the different pieces of^code 
together based on their code segment names. The default code segment name is "main". In 
order to change the name of the current code segment, the Complete Pascal t$CSeg segname ] 
compiler directive is used. When a C$CSeg segname ] directive appears in a program or unit, 
the code for all subsequent procedures and functions is placed in the new code segment. To 
restore code segmentation back to the default segment, merely place the ($CSeg main } 
directive in your program. Mid') ts ftiefltta^ri i^ l^t !it'»«s'l ■ ^^.-nn-: ''&'>•-' ':^- -• • .•■- 

Data segments are named just as code segments are so that the CTI Linker can organize the 
different pieces of data together based on their data segment names. The default data segment 
name is -global. In order to change the name of the current data segment, the Complete Pascal 
{$DSeg segname ] compiler directive is used. When a ($DSeg segname ) directive appears in a 
program or unit, the data for all subsequent global variable declarations is placed in the new 
data segment. To restore data segmentation back to the default segment, simply place the 
{$DSeg -global ) directive in your program. . 

Unless a program absolutely requires a large amount of global storage, the {$DSeg segname ] 
should not be used. The reason for this is that all global storage allocated outside of the -global 
data segment is addressed using less efficient addressing modes than data allocated m the 
-global data segment, .t^ af'i^st ti iriyt'Tj-^v^i^'^ w**.) it.i^.:^^^i ^.--v; . •■; ■--- --' • 

For more information regarding the use of the [$CSeg segname] and {$DSeg segname] directive 
see Appendices B and D. 
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i&tn-on « >o f-^ff.t rvtd'i^ i^^^'S^s i>?i?j^^ D©sk AccGSSorJGs 

h;*rT&» ST^ ifaMvr - iie?TAii 1^7^ ^Kmi-y^^t ,S9;^t'Jf»^ .^5K?OAti ~ *f>{£;ti;i<^'T ikiv-o'S ::'i:i* — <• .^- ■ 
nr ;5,<-;v-i: s fil ^-^.'xii-^bgtslitife ?|:sv.' ?>rrK tsUK'yiiti^q 3s ■:^^«^t*^fl■ :«»»*-' ^Oii "''.qA i '^ v*i '-■ ■ ■■ 

A New Desk Accessory (NDA) is a "mini -application" which is accessed from the Apple menu 
and executes from within the event-driven environment of desktop applications. There are 
actually two types of desk accessories - Classic Desk Accessories and New Desk Accessories. 
This chapter discusses only New Desk Accessories. Chapter 10 addresses Classic Desk 
Accessories. ^._ _.. , ,..^. ...,;., 

When a New Desk Accessory is selected from the Apple menu it typically creates a window on 
the desktop and may also add a menu to the menu bar. An NDA relies upon the application in 
which It is operating to call the appropriate Desk Manager routines (or TaskMaster) in order to 
support the NDA. NDAs require this cooperation with desktop applications because NDAs are not 
stand-alone programs. Instead they are a collection of procedures which are called on certain 
occasions. 

The Complete Pascal distribution disk contains the source code for an example NDA - 
CIockNDA.p. In addition, the Complete Source Code Library - Pascal product contains more 
example NDA source code. 



As mentioned above, NDAs operate within the desktop environment of Apple IIGS applications. 
As such NDAs assume that an application which supports NDAs will have loaded and started at 
least the following Apple IIGS toolsets: , j,^,^ ,^;^..^ ,^,j. ,,,.„. .-^,^,, ,^ 

^^ • QuickDraw *^ *^^ "^ «»»4e^p«e|se^^f?w*^t^«•i ;i^s>^ ©r^ '.^5 ij-s^;>s«4 i:w,t-.-->*t "kr v\fj.v^. " 
^"^ • Event Manager ^'"^^^^'^ -tC^isi*^ fe6-i*r»s^ «d4-ajy.>t fcf>«^ ^i^^\- -z^;^ ■-- 

. . Window Manager -'^^ 5^ ^^>*^« <'^'^'* '^'^-^i' ^^-^^^ *'--^*^ ^'-^ ^^^^^ -'- "■■ 

■ ! M^"^ Meager ^^^^^ „ .^.«^v.>..,: -. ' 

• Control Manager -i^^-'- - 

• Scrap Manager ■■^^- , ^s.-i-^w^ilv^i^ 

• Dialog Manager ,^^^^_^ . :^e*K.^..s^io- 

An NDA is allowed to call any toolbox function contained in these toolsets. If an NDA must 
call routines from toolsets other than those listed above, the NDA itself must ensure the required 
toolset is loaded and properly initialized. 

^M iefit ,*i>noo^A ]) s^^ij iiQ v-t^vs if toHrtq s?jv-^i9« a &^'fy^?ici>. •avli'^^-i'S •vi-i*-.-v •* > '• '-;<:-'^ 
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Program Structure 

The structure of a new desk accessory's source code is quite different from that of a normal 
Apple IIGS program. In particular, an NDA does not have a main program, but instead 
contains four special routines — DAOpen, DAClose, DAAction, and DAInit — which are called 
directly by the Apple IIGS Desk Manager at particular and well defined times. In a sense, an 
NDA has four "main programs" which work together and communicate by setting global 
variables. In addition, an NDA does not have a MainEventLoop procedure since the application 
in which the NDA runs detects the events and passes them onto the NDA when appropriate. 
However, the most noticeable distinction between the source code structure of an application and 
a desk accessory is that a desk accessory is implemented as a unit rather than a program. 
This is because there is no main program in an NDA. 

Note that a NDA must have the four required routines, and they must be spelled exactly as 
defined — DAOpen, DAClose, DAAction, and DAInit. If you fail to provide these routines, 
Complete Pascal returns an error when you attempt to compile the NDA. 

In addition to the four special routines every NDA must have, three additional pieces of 
information must also be provided to the Complete Pascal compiler in order for it to properly 
create the NDA. These are the service period, the event mask, and its menu name. This 
information is specified in Complete Pascal with the $NDA compiler directive. 

•iiom r {$NDA servicePeriod eventMask menuName 1 . ' '-'-r^. 

The service period defines how often the NDA should be "called" with the DARun action code 
(see below) in order to service the NDA's functionality. A period of 1 is l/60th of a second, a 
period of 2 is 2/60ths of a second (or l/SOth of a second), a period of 60 is 60/60ths of a second (or 
1 second), etc. A period of -1 (or $FFFF) is never. For example, if a NDA displays the current 
time, then it would specify a service period of 60 so that it could update its display every second. 

The event mask defines which events should be handled by the desk accessory. These values 
are a subset of those used by Apple IIGS applications using GetNextEvent or TaskMaster, and 
are listed below for reference from the Events unit. Of the six listed below, the update and 
activate events are always passed to the desk accessory regardless of the event mask, however, 
the remaining four event types must be specified explicitly. If all events should be handled by 
the desk accessory then an event mask of -1 (or $FFFF) should be specified. 

CONST mDownMask = $0002; tr^fi. !-•-- ■■ 

mUpMasIc = $0004; i?.*i..i<.-^- 

keyDownMask = $0008 

autoKeyMask = $0020 

updateMask = $0040, 

activeMask = $0100, 

EveryEvent = $FFFF 

Finally, the menu name is the name for the desk accessory which should appear in the Apple 
menu of an application supporting its desk accessories. 






"^tr«n"5 rtmiJstniA tfia^<w»i rits Hs.^ '-3i }, .^-'o: 'f^: 



As mentioned above, this information is specified with the compiler's $NDA directive. This 
directive must appear as the first line of the program before the reserved word UNIT. For 
example, the following directive specifies a service period of every 60 ticks (1 second), that all 
events should be handled by the desk accessory and that the menu name for the desk accessory 
is "Clock". 
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■ym j. ■{$NDA 60 -1 Clock ]R.> ^«c ~r/<;hifj4 biifOiia Aa»< •..:-^ ri,ii.' .-c.:;,ii .si...: f. ■ ^ 

UNIT ClockNDA; ^Hf As,-.., AflW *-: rf^") stip-si .fji^c -nftijf^-^ <•"■ '^ vi^ti:.^:' K.-^'i .^ ■ 

Note that the name of the unit, ClockNDA. is not the name used by Complete Pascal for the 

spedfiel n thelNDr"'"^! "'."^ '■'''^" '" '^^ ^^^^^ "^^"^- ^^^ ^^^^ ^^^ ^ ^^" -^ 
speciiiea in the JtJMDA compiler directive. ^'^ ** "^ '-"^^ *" ^'»'* ■'" '''*■■'"■ '^'■''* 

Thus, we arrive at the basic structure for a new desk accessory written in Complete Pascal. 

{$NDA 60 -1 Clock } I isMdoig of ns^'h't^.i'^-^-Li ^i:.i:. 

UNIT ClockNDA; .':;■■ 

INTERFACE : wobrkv m s-ri3 ^r::ij air-s.'t'i ,ii,Sj ^iv^nr^sfitAT.:^^ a i 

FUNCTION DAOpen: WindowPtr; ..nvr-- .a; 

PROCEDURE DAClose; ^^:^«5=>'.> 6 ■ 

PROCEDURE DAAction(Code: Integer; Param: Longint) ; ^^^--^^r-- 
PROCEDURE DAInit (Code: Integer); 

IMPLEMENTATION 

e ;-f?; function DAOpen: WindowPtr; ' ""* ''*-^"- «c Wt>fe.^t^ 81:;" ■ig.fii--><f'^ 'lo '-isr;.* -'-^ : •■; 
«ii>ijr BEGIN Til *u.'.ic* ?i^ aiSiivi ds^i^ ^iiJrtHBV n->r; •.-•).■". ..*-■ ' 

Jti <|l { Code for DAOpen ) --' **■ ■^^iiifi-Ci itM-* .^0f^ h^&iA 9i y^tfk^^ ?3i.t :■ 

END; .»2i«^ «5 ^t^^si liv »i.'*i?<>f^r:-; ■!¥ (wi-wg - :? ^ 

a 0^ PROCEDURE DAClose; '^.t*5 sd t^ ff*S»r£^#3^T9q ri-^'Aii as'^j ^t-"* s.f^^-=s:si; -;. ■ :t):.- ' - -' 
ft* £, -BEGIN 'iiiT yfiS»<|e ilfite ai wev.Sh?fc»'^ s4j i*§^^«; l.!«r> t^*^-.**'.;,- 'ja; 

■!i«>^ .taf; { Code for DAClose j,qN-^*5(fe '^^ ^^ J^^V* ^;Jg iffWff«ssi ife^^^ « "(■'"■^-" ;tr- -p.^-.;,;^ 
END; aisrvr-jiT. ft i-m^* ktmo^'S «#^ M4 ^'j^iii^ *efci ArffiK ?*rf sS Ji't^r-.-fc ^ ; -V> i'*y^ ' i v- *■ ■ At : 



-- -.»^b;«*.»*V -wii-v- Nv; 



PROCEDURE DAAction(Code: Integer; Param: Longint); ^'^sihJiJU-* rl^CCvvU 
BEr;TM 



f,Ai^U ^ [ ^°^^ for DAAction i;^^^^«-^^'j,^,(^^.-,,^i,^„,..,..^^sft«<^i^vc:.<^ >-,,:.:- J 

PROCEDURE DAInlt (Code: Integer) ; ', t^^mi^^m^ A<mri^.'0 ^-^U^: - -y.i ■ : - 
BEGIN 




^^I nf Ir-"^ ^°"'" ^^un-"""' ^^^"^ ^^"^ ^^ *^^ rea^ired desk accessory routines and outlines 
each of their responsibilities. ,^,^ .^^^ ^^..^^^ 3,,- .^ ,,,,, 



The DAInit Procedure 

n^^^n^"?*" P;°'^^"^« '^ the very first and've^y last KDA procedure to be called by the Apple 
lltxS Desk Manager. The DAInit procedure is first called when an application calls the 
■^ DeskbtartUp procedure. At this time the NDA should perform any necessary initialization 
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which is required. The DAInit procedure is last called when the DeskShutDown procedure is 
called by the application, thus the NDA should perform any termination operations that are 
necessary. Essentially, life begins and ends for a NDA with the DAInit procedure. 

The DAInit procedure has one integer parameter, Code, which indicates under which 
circumstance the routine is being called. If Code = then DAInit is being called due to a 
DeskShutDown call, otherwise the call is due to a DeskStartUp call. The following example of a 
DAInit procedure illustrates its basic structure. 

PROCEDURE DAInit (Code: Integer); 

{ The variable myWindOpen is global } ; ^ioi;." ^- ■'^- -'■ - - 

BEGIN -.^.r^i-'-j'Ti'- 

if Code = then begin 

{A DeskShutDown Call, check that the DA window is closed } ^ 
end 
else begin •-' »■- . • ' 

{ a DeskStartUp Call^ init the myWindOpen flag } i*l ^:^"' -x;.::."-'"! ' 
myWindOpen := false ^O Z''-\i\i',:'-,.^'- 

end '^ (is-y^-..:^i?i .aoc;./'-'- • s ■^i.'^ .T:>''-" ■■'•^ '- 

END; 

Since most NDA's have a window that is displayed when the desk accessory is opened, the NDA 
must keep track of whether its window is open or not. The easiest way to do this is using a 
global windOpen variable which holds the value true when the window is open and the value 
false when the window is closed. Thus, when DAInit is called because of a DeskStartUp it 
should set its global windOpen variable to false. 

Note that it is possible for the DAInit procedure to be called to terminate itself due to a 
DeskShutDown call when its window is still open. This can happen if a user quits an 
application with a desk accessory still open on the desktop. Thus, it is imperative that your 
DAInit procedure check to be sure the window has been closed before allowing termination. 

The DAOpen Function - " "'' ■ - " "" vi^js^^' ' - 

The DAOpen function is called in order to open the desk accessory, which for most NDA's is the 
time to create and display its window. A NDA is opened by a user by selecting its name from 
the Apple menu. When a NDA is selected from the Apple menu, the application calls the Desk 
Manager routine OpenNDA either explicitly or from TaskMaster. ^., . 

If the NDA's window is not yet open when DAOpen is called then it should create the window 
and specify it as a system window. A window is made a system window by calling the 
Window Manager SetSysWindow routine. If DAOpen is called and its window is already 
created then the DAOpen routine should ensure that its window is topmost. To make its window 
topmost simply call the Window Manager routine SelectWindow. (DAOpen can be called when 
its window is open and when the user selects its name more than once from the Apple menu.) 
In either case, DAOpen should return, as its function result value, a pointer to its window. 

Note that the NDA is told via the DAAction procedure (below) when to redraw the contents of the 
NDA's window. 

The following is a source code fragment showing the basic structure of the DAOpen function. 

■""•;■■ FUNCTION DAOpen: WindowPtr ; j^,_, .i . i,i'\'yl ^fi^ funW ,•'■>'■' -■/; . -"Jc • -'/:-. ':■ 
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•A^rtJ n { The variables myWindOpen, myWindPtr, and myWind are globals } 
-AOM BEGIN ■ ^ ■ . 

if myWindOpen therP-."-c?»' • A^vt -a,]? I'^^ii jq^^j *i;rA-'. if--^^ -jl? t-rr^^^v-rr K-h ^'Jv 
SelectWindow (myWindPtr) 

else begin o/?r«fiv;fti ?**. vr^i* .-^o':*:^ .'-iij u * I'l'. 

myWindOpen := true; 
i^mi^ ii^0t { set up myWind for creating the window } ^.t:^ f.'i ^h*r' ^.'^'^ '.^■: -.u"' ■■ ■ 

3*y ^nn; myWindPtr := NewWindow2 { . . . ) ; -/iB,:. j?i .izi/Vr^^rr-^Vf- 

SetSysWindow (myWindPtr) ; si^Hniw ^ Aun i;i« i»ve »i ii j.i:Jft'-^ "f^f^.r. 

end; 

DAOpen := myWindPtr; ^Tfi'^)ii-«V.'iH l:Ka ^S? ^ro-jK ^jli Ai (>tuv:K'ri)'' A' , ' 
END; 



The DAClose Procedure 



The DAClose procedure is called in order to close the NDA's window. This procedure is 
typically called when the user presses the mouse button in the close box of the NDA's window. 
In order to prevent errors in situations when DAClose is called and the NDA's window is not 
open the procedure should always check to be sure the window is open first. 

PROCEDURE DAClose; . . . . 

i The variables myWindOpen and myWindPtr are globals } 
BEGIN 

if myWindOpen then begin * ^ « ■ .-■„.«. rj 
CloseWindow(myWindPtr) ; " ^^ ^^ \, 

myWindOpen := false; v- -- ■ 

end; . _ 

END; ■" ^"''^-' '--^ 
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The DAAction Procedure 

The DAAction procedure is the routine which does all the work associated with the desk 
accessory between the time that it has been opened until it is closed. The DAAction procedure 
has two parameters - Code which indicates what type of action to perform and Param whose 
meaning depends upon the Code parameter. There are nine potential values for the Code 
parameter, each of which must be implemented by the DAAction procedure. These operations 
are summarized in the following table together with the meaning of the Param parameter in 
each case. ;^30^j«^j *•: ,^-4:<,-in.r:.'j--- 

Table 9-1 -, ijiy^- v.,-s) Jirj^:r.>;< 

Apple IIGS Toolbox :5 -.v 



Action Description 



DAEvent An event relevant to the desk accessory has occurred. Param points to the 
EventRecord describing the event. -.^'j-^ 

The DAEvent action indicates that the application detected an event which is 
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associated with the desk accessory. The event could be a mouse-down in the 
window's content, an update, an activate, etc. When this action occurs, the NDA 
should respond to each event type that the NDA supports. 

DARun The number of ticks specified as the period for the NDA has elapsed since the last 
DARun calk Param has no meaning. 

DACursor This code is passed to a desk accessory if it is the frontmost window each time 
SystemTask is called. The purpose is to allow the desk accessory to change the 
cursor when it is over the NDA's window. Param has no meaning. 

DAMenu This is passed to a desk accessory if an item from a system menu is selected. 
LoWrd(Param) is the Menu ID and HiWrd(Param) is the Item ID. 

DAUndo 

i^ACopy 'Vit-beoo^'^ c^'^" '• -■ "■'" 

DAPaste 

DAClear Each of these codes are passed to a desk accessory if the application determines that 

the user has selected one of the standard edit commands from the Edit menu. The 
■.?o-bn!W v DAAction procedure should assign the value of 1 in the Code parameter if the action 

was handled, otherwise a value of should be assigned. 



The following source code fragment demonstrates the basic structure of a DAAction procedure. 

PROCEDURE DAAction (Code: Integer; Param: Longint) ; ^,,-.. > .y-jr.-,,^^ ;~ 

1 The variable myWindPtr is globals ) - ,. , '' ' .-i' !- 

VAR currPort: GrafPortPtr; ^~ ■-_... 

■:Sf«f I." " ^3>i:>.>.*V* ■■■'••>-» 
BEGIN .., .. 

case Code of .v^- 

DAEvent : begin 

case EventRecordPtr (parani) *.what of 

*■*"■*""* ""—■ mouseDownEvt : ; 

mouseUpEvt: ; .-'U>>a'30'i'' ^<^':^-'- '■ 

keyDownEvt ; ; 
i>'!i% fiM Al'A^ b autoKeyEvt: fj tjf^ ^e^fc ifs^i^vv '«st-iS-<.#»^ §43 fJ .■3-'i^^''^-?yni i:0-f."'--' ■• 
mtfh&9&^q .-t^iio-A, updateEvt: jj #tf:w fe*,^*^^ f£2s*^' S:ni4 i> J*4t ffff-^^ ^:V! t^^^:---' ■/ A 
•?7odw rtT»i«^ ^Tf' activateEvt%- '|^ .^fj^ ^i;-.-^ a^is-^BPf -trAf^--'. ■i^^ ry^y&m'i .^'-^ -> 

ni '.rri^iffBiSt DARun: begin .— -— .,.-'* ^jr.,.^^ -vsrii^^it.^' t14^.* )^.'^^ ■'•:■': ^■•'■- ' ^'i'; - '-■■■■■^ 

currPort := GetPort; ''-' 

SetPort (rnyWindPtr) ; 

Set Port (currPort) ; '■ " •' *' ' 

end; -.:^.:^.- = i " ■ -■ ■ ' ■■ 

„^,,^ DACursor: begin _«_-«— -«.-<,.^.—*v, ..-,——«——« — 

{ code to update the cursor } ■■ ir ''c ■■.•>- I ■ . ' ". 

end; ^^^ J_^^ .^_^. 

'^**"''^' DAMenu : begin 
ff^J o> ■'i3ni<^ { code to respond to a menu selection } li.'^^?! *■ '-^ "■-- 

end; ..i;.-**.^ .'.^■. , .'-^. ../^c .-. -.^i . • -. 

DAUndo : begin 
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.. . ■ ■ , t code to perform an Undo for the DA } 

rJ ii^ ii^Z-iC^'qo ti Code := i; --.-.- .- - ^ . ^-. - ' .-. =.^ ^-:--:n- 

b^fift^ 3i rr^ I; ,?-■-- end; '^' .Tf<^^^'^^^ rf»sb fe^i'siaiii lAan-j-i a r*j; v ■'*' 

'^'— ^ Ih-rj ndi m^hu DACut : begin "^^ '^t^ iviHsf ^aijttra&s si yn^afeswe ^£*h 3i*j -t'-f!.: s^ ■;:. ■ , ■ 

■;;.h".oar . >. { ^ode to perform an Undo for the DA^f *^''*f -f // '•'" "^ "* " 

end^ us^sMj ?i!5:ifSh^^«3 st^ iti£«wr>iK*e nr'^ryb -yr-i q'} >>t»1»;-1-:- - vj ;-=■■."- ';;; l-'.-y-. '■.■■■■ 

DACopy: begin 
^<^^i-\hmii t ^ode to perform an Copy for the DA V^^'^f^^'^ '■- V'" ' '> --■ ' 

Ji stiiior/ v^ir»« DAPaste- becrin*'*""'' '** ■^***'*«^*"' ■' ^' ^'^''^' '■'* "■'•■>- 'rMi; :ie^i'/ .0 ':'"-''u; ■...■ v.*: i.' 

. { code to perform an Paste for the DA } ' ^^*^'^'-^'' '■ -' " ^■^^='' - * -"^ ' 
- Code := 1; 
end; 
'^^^^-^ DAClear: begin '^'^^^' ■ -^r^-t^s^^r-^:^--=^.-5f?^'^'i-?-^^ :■-. 

. { code to perform an Clear for the DA } ^ ^ vt,^, ' >^ ,. -,.:.'. 
Code := 1; ^''^ ,«c*^-> -T ^i^^ni.--, 

end; 
-«e*ij<;' ■ ■ end; ^^ •rt^Sasaa jifeft^ s ferit^^ fe«^s ^ii^.?".-- y^*^"^-^*"^- ■- '*vr-- 

iiii^fAh:>fiqqs tjaixsda is<ij « xsife 3ijii4 -sat* >d sr?^^jn& :^3^^A3!&iy-,?4aT8'^'.^: '..-«! m -/n.'^: = 

Of particular interest in the DAAction procedure above is the code for the DARun action Most 

for the DAR "^ 'T"'"V^ 'll''.''^ "^^" ''' "^"^°- '' ''^^'''- «°---^' ^his is not the cas 
code whp X ' ^^^ ^^<^^^^^ procedure will always be called with the DARun action 

^ lh^^T^ ^*'^'^^^"^: ^'^^^^^ the NDA executes any code which draws into its window it is 

^«? ^ K necessary to ensure that the window is the current grafport and to restore the previous 

^^^ grafport before leaving the DAAction procedure. ^ ^ ^'^'^^ '•"e previous 
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rwfr'rV".' ^'^ 'T^l^^ '" ^^' '^'"^ ^^^^ ^" applications are compiled. That is. you may 
menu dl.' h ^""r7' ? ^'t^ ^^'^^ ^^'^'^ commands from the Complete Pascal Compife 

resuL r. .iT ^" ^"""^^ ^- T^'" '^'"'^^"^ '^^ ^^^^^ S^"^^^ ^^"^ command, the compiling 
results are the same as an application. However, when choosing To Memory or To Disk the 
compiler behaves differently for NDAs than for applications. 

r!!irHnk°?h"^.'^l'^° ^'"°'^ command the Complete Pascal compiler is invoked to compile 
and Ink the desk accessory. However, when the compiler successfully completes the 
compilation .t does not shut down the Complete Pascal environment and transfer crtrol to Ihe 

CoTnnW p"'"' r A r' ^"" \" application. But rather, the desk accessory is installed into 
Oompiete Pascal s Apple menu below the installed desk accessories. 

Note that three items are actually added to Complete Pascal's Apple menu. The first is a 
dividing line which separates the new items from the existing items. The second item "Open 
mjA opens the desk accessory just as it would if the desk accessory had been installed You 
Should select this item to open and test the desk accessory. The last item. "Remove NDA" 
]^Zr' V t f/^^f^-y ^-om the Apple menu and then purges its compiled code from 
memory You should select this item when you have finished testing the desk accessory and 
want to free up the memory it is using. 
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Complete Pascal ensures that a desk accessory which is compiled to memory is operated on in 
the exact same way as a normal installed desk accessory. The DAInit procedure is called 
immediately after the desk accessory is compiled with Code <> in order to emulate the call 
which occurs when DeskStartUp is called for other desk accessories, and with Code = in order 
to emulate the DeskShutDown call. While the the desk accessory is open, the service period is 
honored and all events related to the desk accessory are properly passed to it. 

When choosing the To Disk compile option. Complete Pascal creates an Apple IIGS load file for 
the desk accessory which is in the proper format for a NDA rather than an application. In 
particular, the file is created with the GS/OS filetype of $B8 rather than $B3 for applications. 
When compiling a desk accessory to disk, it is necessary to Install the desk accessory before it 
can be used. This process is described in the following section. ,. , -/'.-.f;;,;^ ; 



Installing a Desk Accessory 
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Once you have successfully created and tested a desk accessory and would like for it to appear 
in the Apple menu of all desktop applications you must install it. For an NDA to be installed, it 
must reside in the SYSTEM:DESK.ACCS: directory of the boot disk so that desktop applications 
supporting desk accessories may access it. ^ ^^jj^y^y^.^ ,^.z^.^*^- ...,. ... ...-v 

Installing a NDA consist of a simple three step process as outlined below, f.^-'.^,^ ti--''^.'-' -■• - : • ■ 

^* • Choose the To Disk option from the Complete Pascal's Compile menu. This will compile 
*^^ the NDA to disk as a GS/OS load file having the proper file type of $B8 (that is, it will not 
^■»' be an application you can run from the Apple IIGS Program Launcher, but an NDA load 
file). 

• The Apple IIGS Desk Manager requires that all desk accessories be placed in the special 
® system directory SYSTEM:DESK.ACCS:. Thus, it is necessary to copy the desk accessory 
load file into this directory. To do this it will be necessary to leave the Complete Pascal 
environment and use the Finder to copy the file into this directory. 



V * Finally, the Apple IIGS must be rebooted. During the boot process of the Apple IIGS, the 
'^^''- special directory SYSTEMiDESICACCS: is searched for all currently installed desk 
■g accessories. Since this process is only done at boot time it is necessary to reboot the 
'>'•' machine in order for it to recognize the new desk accessory. ji^^co^it^ ;-3VK^'^* ■ •; ■ = 
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Classic Desk Accessories 






A Classic Desk Accessories (CDA) is a "mini-application" accessible from the Apple IIGS 
Uassic Desk Accessory menu. A Classic Desk Accessory executes in a non-desktop non-event 
based environment. Unlike New Desk Accessories, a CDA takes full control of the machine 
during what is basically an interrupt state while the CDA is in use. Classic desk accessories 
are invoked by pressing the Open-Apple, Control and Escape keys simultaneously. 

Complete Pascal provides direct support for implementing Classic Desk Accessories in Pascal 

!".! . I'J;*'*"' ^^^ Complete Pascal Master Disk contains the source code for an example CDA 
titled SHRDump.p. 



Program Structure 

The structure of a classic desk accessoiy's source code is quite different than that of a normal 
Apple IIGS program (le: Textbook and/or Desktop applications). In particular, a CDA does not 
have a main program, but instead contains two special routines - StartUpCDA and 
bhiitDownCDA - which are called directly by the Apple IIGS Desk Manager at particular and 
well defined times. In a sense, a CDA has two "main programs" which work together and 
communicate by setting global variables. 



Wote that a CDA must have the two required routines identified above, and they must be spelled 
exactly as defined - "StartUpCDA" and "ShutDownCDA". If you fail to provide these routines 
Complete Pascal will report an error when you attempt to compile the CDA 



.(TS"'! 



In addition to the two special routines that every CDA must have, the program must use the 
compilers $CDA directive to indicate that the source code does in fact implement a Classic 
Desk Accessory. The $CDA directive has one argument which is the name of the CDA as it 
should appear m the Classic Desk Accessory menu. The format of the $CDA directive follows: 

($CDA menuName } 

The location of the $CDA directive is also important. The $CDA directive must appear before 
the reserved word UNIT for the directive to have any effect. An error will result if the directive 
appears after the reserved word UNIT. For example: 



» •ISV-ti* -.T ■ 



ijfjiy.TUNIT MySHRDump; : W!><J'v*f rtS.t*^Cr f^asrtfiM af^^Hi 'trfi c,i J^aa -4 QBiU'^ f)'-i''.i>:} :ii •■ : ' 

Remember, the name of the program (MySHRDump) is NOT the name used by Complete Pascal 
ior the name of the desk accessory which appears in the Classic Desk Accessory menu The 
name used IS the one specified in the $CDA compiler directive. ' ; ' 

Thus, we arrive at the basic structure for a classic desk accessory written in Complete Pascal. 
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-yf f I SdDA STHRDump } 4^. ■ 
UNIT MySHRDump; 

Sr '' INTERFACE ■ ^ >I^SO O^^ED!' 

PROCEDURE StartUpCDA; 
PROCEDURE ShutDownCDA; 




{ Code for StartUpCDA } -ri^ Ihfc ^w-joO .Mci^jA ^i^^vjO , ■ '-j ^^.:--- ■ 



END; 

hdO PROCEDURE ShutDownCDA; ^L- ?m&3fw^ ^ti^i ^ist^M i.«-->»a-i c.«'i-i.<-') ei.' --'^"- ^ ■ 
BEGIN -ii-rr-' ■ ' 

{ Code for ShutDownCDA } 
END," 

END . » "^ . , . . . . 

The following two sections define each of the required classic desk accessory routines and 
outlines each of the routine's respective responsibilities, i-ojrit'^rsii ev^s- i-..-^-^.-^ ■ . — . 
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The StartUpCDA procedure has no parameters and is not required to perform any specific 
operation or have any specific structure. The StartUpCDA procedure actually implements the 
entire functionality of the CDA. The Desk Manager calls this procedure when the CDA's name 
is chosen from the Classic Desk Accessory menu. Unlike desktop applications or NDAs, a CDA 
is not event-driven. Thus, the procedure is given complete control of the Apple IIGS to perform 
its operations until it is complete. _^ _ . , . - j i ., ..u 

^*«E PROCEDURE StartUpCDA,^'?^ ^C^ «^*»S ^i$ U'V ■^3ii:lhm Cj -^^f^f* '^^'^-^^ ' ''■' 

sr'.. BEGIN -^^-i^^"^ -r-^r' ' -^ 

'.z^ { Perform any and all actions for the CDA }-■>-- 

END ; . , . _ 



The ShutDownCDA Function r' U ' ^ov- ' ^^ ■ - 

The ShutDownCDA procedure, like the StartUpCDA procedure, has no parameters and is not 
required to perform any specific operation or have any specific structure. The ShutDownCDA 
procedure is called when a call to the Desk Manager DeskShutDown procedure has been made 
by an application or when the Apple IIGS switches between GS/OS and ProDosS. 

The ShutDownCDA procedure gives the CDA an opportunity to terminate any "tasks" the 
StartUpCDA procedure my have initiated. Since most CDAs are very modal (ie. they take 
control of the machine, perform their operation, and then quit), the ShutDownCDA procedure is 
rarely used by a CDA. _: ■ .:. . 

Proaromming .. ..^^^^ ^ll-soO ■ : ^0-2 Clossic Desk Accessories 



PROCEDURE ShutDownCDA; 
BEGIN 

V^y I Perform any terminating actions for the CDA } 

- . END; ' 



K^ 



Compiling a Desl< Accessory 



mrnVT™ th''T° M^"'*^ """^ *•= T° °"'' " ^•'"'^ S^"'^'' commands in the Compile 
menu However the To Memory command cannot be used. The To Memory command cannot 
be used because Complete Pascal has no way to automatically install a CDA after it"s compTd 

When choosing the To Disk compile option. Complete Pascal creates an Apple IIGS load file for 

tJrf ^'r'r7 ■'"^"'^ 'V" '^^ P™P^^ ''™=»' *■" ^ CDA rather than an application In 
particular, the file is created with the GS/OS filetype of $B9 rather than $B3 for applications 
When comp.hng a desk accessory to disk, it is necessary to Install the desk accessory before 't 
can be used. Installed CDA's is described in the following section 



Installing a Desk Accessory 

?."Z^T '^'""' ^"'^'^^f f""y f eated and tested a desk accessory and would like for it to appear 
m the Apple menu of all desktop applications you must install it. For a CDA to be installed It 

Tno T rt^" SYSTEMrDESKACCS: directory of the boot disk so that desktop appHcatls 
supportmg desk accessories may access it. appncanons 

Installing a CDA consist of a simple three step process as outlined below. 

' CnTZ h'^'J" ^'"XTo? ^r^ Complete Pascal's Compile menu. This will compile the 
CDA to disk as a GS/OS load file having the proper file type of $B9 (that is. it will not be 
an application you can run from the Apple IIGS Program Launcher, but a CDA load file). 

• The Apple IIGS Desk Manager requires that all desk accessories be placed in the special 
system director; SYSTEM:DESK.ACCS:. Thus, it is necessary to copy the desk accessory 
load file into this directory. To do this it will be necessary to exit the Complete Pascal 
environment and use the Finder to copy the file into this directory. 

■ • Finally, the Apple IIGS must be rebooted. During the boot process of the Apple IIGS the 
T"f ^"^"^'"^ SYSTEM:DESK.ACCS: is searched for all currently installed desk 
accessories. Since this process is only done at boot time it is necessary to reboot the 
machine m order for It to recognize the classic desk accessory. 
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Tokens 



Lexical joAe^s are the smallest units of text in a Pascal program. Tokens in Pascal are 
c assitied into special-symbols, identifiers, directives, unsigned-numbers, labels and character- 
strings Aside from character-strings, the representation of any letter (upper-case, lower-case 
tont, etc.) IS insignificant to the meaning of a program „ . ,. . ^. . ^ , 

I^^ t^tf ^ ^^^''''^ program consists of tokens and separators, where a separator is either a 
blank (the space or tab characters) or a comment. Two adjacent tokens must be separated by 
one or more separators if each token is an identifier, number, or word-symbol. A word-symbol 
IS a special case of a special -symbol. 






Special Symbols*^ iad^^^ «^7 »* «;$«ms!*ffl s^^^j^^ w^^ii $&^ s^ssf^-^ff^b-' ^^r- ?"^ •. 

onhe\'^"'l''^e ^"^^ *°^^"^ ^^""'"^ ^^"'^' Tneanings and are used to delimit the syntactic units 



-Jf^i'lVKt 
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The following single characters are special-symbols^^^^ .^H^^T^H ^^^ ^. ^.■^.>T.oh. 
The following character-pairs are special-symbols: 



and 
array 

begin 

body 

case 

const 
div 
do 
downto 
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else 
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The following «^ord-sym6o/s (or reserued-words) are special-symbols: ^.-.^^t^v,. . ..-- , 

procedure unit ^ !, 
,1^ . ,^ . . - program until ./. 

^^^^ ™od ^ _ record , 

for nil ^ 1^-^...-^^.. repeat ■ 

function not "^ j set 

goto of ^^.„.™y string 

^^ or then 

implementation otherwise ^-.n^ to 
in ^ ^^ packed r- N^' *-^ type 



interface 

label 

mod 



uses 

var 

while 

with 



Mentifiers 



-v-i 



O)^;.- 



Identifiers are names used to denote constants, types, variables, procedures functions 
prograws, units and fields in records. An identifier can be of any length so long as it fits on a 
single line, however, only the first 255 characters are significant. Corresponding upper- and 
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lower-case letters are equivalent in identifiers. No identifier can have the same spelling as a 
word-symbol. Identifiers consist of letters, digits and underscore characters, except for the first 
character of the identifier, which must be either a letter or underscore character. 

-Sn^y'"''*' idenllfier 



^ letter 



underscore 



letter 



digit 



^ 



underscore 



Examples of identifiers in Complete Pascal: * ^ e '- - 

£i 7*itT.j; Maxint Writeln A_verY_long_identif ier _DataInxt .^ _^. .. ..j, „ ,; 






Directives 



™-»j«f«»>eai:«3M?-. 



■„-«=^u£aStK:;:3=tSW^r.'>'^^ 



Directives are identifiers that have special meanings in the context of a procedure declaration 
or function declaration. They can otherwise be used as identifiers in all other contexts. 
The directives available in Complete Pascal are: 



Tfls^nr (st-^':ss5.-' s^**.'"** ':«---';-' 



EXTERNAL 



FORWARD 



INLINE 



TOOL 



Further information on the EXTERNAL, FORWARD, INLINE and TOOL directives may be found in 
Chapter 17. , . , ■ - 



Numbers 



i' "i 



Numbers are unsigned-integers in decimal or hexadecimal (hexadecimal integers have the $ 
character as a prefix) notation representing constants of the data types Integer and Longlnt. 
Unsigned-reals in decimal notation represent constants of the data type Extended. The letter 
'E' or 'e' preceding a scale factor means times ten to the power of. 

digit sequence 






tv.^i3-i? 



-;->[_digUj-^ 



/.:;r'-'o"i 



hex digil sequence 



sign 



-yr^ hex digit — ^ 






.^.ntub^U'l ./vii^b^-syj.; ,fM.xr:i-^^' ?9'*^ 



T2?25?%"^^'K7»f vL :.T-?^ ii'i' ' 
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■VWtBaftiKjn ^''^ig'^ed number 



>■ digit-sequence 



unsigned-real 




hex-digit-sequence 



J 



Sf 3^: 



;!.: Ii%.. 




r:rrf^l-s^ ,f>3-*fit 









*-.e A** 



>TCff 



digit 
sequaice 



■V 



^^UiK 



-o^ 



digit 
sequence 



sign 



\^^J^\_^ digit 
Vv^ sequence 



Examples of Numbers: 
««icirl +100 -0,1 



SA05D 5.329E4 



NaN(l) inf ^-''A---! ^.Pr- r; : 



Unless explicitly assigned to a variable of another type, any number written with a decimal 
point or exponent is stored as an extended real number. All other numbers are written in the 
Ch te 13^^^ ^°'^'^*^ (Integer or Longlnt). For further information on numeric types, see 



■^ fi"p^i*<^ 



Labels 



1^ 



•-^i.^«V>»»*i 



•%*:?rS**s1ti^'rn! iA^--^~^ 



A label is a one to four digit-sequence whose value may be integer in the range 0..9999 Leading 
zeros in a label are insignificant, e.g. the labels 1 and 0001 are considered equivalent Labels 
are used with Goto statements, described in Chapter 16 



-'. '■id.M,,i Iri ' -tK ar\ ^-tr^.- -r'..-'- 



Character-Strings 

A character-string is a sequence of zero or more printing characters all on the same line in a 
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program and enclosed by apostrophes. The maximum number of characters that can be in a 
character-string is 255. A character-string with nothing between the apostrophes denotes a null- 
string value. 



character-string 



-"4-x^- ■; — — ■ 



..». =■■ ■} <^ 



fTK^.J 



<D 



X . J 

^'^ stnng-characler m-^ 



O 






String-character 


any printable char except 


Q orCR 






\ ► 






^ 


►^ W^ 


1 





\ 



nv^i'v.n jf-^'y. ■■'- 



A character-string represents a value of a string tsrpe. As a string type, a character- string is 
compatible not only with other string types, but also char types and packed string types. 

All string-type values have a length attribute. In the case of a character-string, the length is 
fixed; it is equal to the actual number of characters in the string as enclosed within 
apostrophes. A pair of adjacent apostrophes within a character-string is regarded as a single 
apostrophe and thus counts as a single character in the string's length. A quoted, single 
character constant is compatible with both character strings and the predefined data type Char. 
Examples of character-strings: | I _ 

•A* ';' 'Pascal' 'Don' 't worry ! ■ '■" 

] r— 



Constant Declarations 



:r^^r-^«H'U. '■'■^^'- 



A constant-declaration defines an identifier to denote a constant, within the block that contains 
the declaration. A constant identifier may not be included in its own declaration. 



ftfti'Mt '^^'^rn ^ consiant-declaraiion ^^ 



A'^ ■-- 



constant 



Vi^^^^^m:- :■■ 






M sign y 



► constant-identifier 



signed-number 



character-string 



.■^■j:.~x^:--: 



■. if.J.Alwt' '^■3'.'r> 



A signed-number may be an integer or real number. 
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■ ■■ v^ 



^^■ 



\^ 



Comments and Compiler Directives 

The constructs; 

( any text not containing right-brace ) 

(* any text not containing star-right-parenthesis *) 

are called comments and are ignored by the compiler. 

The substitution of a blank for a comment or a comment for a blank does not alter the meaning 
ot the program. That is, a comment, as a separator, may appear anywhere in a program where 
a blank may appear. 

Comments of the form [...} may be nested within comments of the form (* .. *) and vice versa 
witrin'n Tl "'^"" nesting of comments is available. The occurrence of the special symboTi 
S.e commeni ^"""^ ^ " '^'"^' '^"'^'^ *^ "^'^^^ ^ ^* - *^ ^°^"^^nt always terminates 

^P^f^^r f* tw K ^'^^ '' ^ comment that contains a $ (dollar-sign) character immediately after 
renrl^PnV ... "F """ ^ <=°"^^ent. The $ character is then followed by one or more letters which 
comniTer L?h nf\\'°™^'^^-i ^'l^^^^'^^- Compiler directives serve to affect the behavior of the 
compiler. Each of the compiler directives and their affects are described in Appendix B. 

Examples of compiler directives: 

{$J+) <*$cseg Printing *) 
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A 



ODirar 



^t^iv 



t; Blocks, Scope and Activations 



— > 



■.-■.■ .V 



Definition of a Block 



*i/»ls*^e ?".'*>. ni/itii -.i^t «A . _ 



.^- r 



V^r1n!nft f fundamental construct for Pascal source code. A block consists of a 

tc\tZ-T. ^v V^"*^ ^ s^afemen^ part. The declaration part consists of zero or more 
follow. /hri''M'f^^^ ^SP^^"" ui ^?y.°^d^^- The statement part is a compound statement and 
I ir^ declarations Every block is part of a procedure declaration, a function declaration 
hlLk^/rT'/"' ^, "^^S/" identifiers and labels that are declared in the declaration part of a 

declaratLnl fn f>. ' '^^^ *'lT^ ^^" ^'^^^^"^ ^^°^^ ^°"^^^"^ ^" °ther blocks; therefore! 
declarations in the program block are termed global ■^j^^t^y^.^^^y.^^^ 



block. 



M-./^^"."W? -t- 



^^ — declaration l-^-^ 



compound-statement 



\^ 



declaration 



^^/^sim^^^ssmm^^js^:.: 






label-declaration-part 



constant-declaration-part 



type-declaration-part 



variablc-declaration-part 



procedure-and-function-declaration-pan 









The label declaration part declares labels that mark statements in the corresponding statement 
^%;-r^^ . "'"^*' ^^^'^ exactly one statement in the statement part. ,.,,., ,^^:v■■-^=,^'^^-.' ^m. 

^^s ^^^ ^^- .f^li^^ label-<kdaraUon-pan 
do*jM Jsrii vd ba£: ► C^abel y 



T 






digit-sequence 



^fy crt 



o 



'V 



^V^ 



The consiarti declaration part contains constant declarations local to the block. See Chapter 11 for 
more details. ■**-<. i .. ?*_*_! - ^ ^ 



'tv Hi (:;tt;.. jsii; lar 



-ri^J 1o .«.-30^'«, art:* ?*- " constantMrn-ation-part '■-■-- . .----- • 
►( ^ constj -^-^ constant-declaration 
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The type declaration part contains type declarations (see Chapter 13) local to the block. 

type-declaralion-part 



SnO^fnV^iO/' l ►/ type ^ -,— ► type-declaranon — .,- ►- 

The variable declaration part contains variable declarations (see Chapter 14) local to the block. 

variable-declaration-part ?^ j^ t-_. nO'^"-"'" • ■ 



Wvar ") y^-^ variable-declaration 



( 






The procedure and function declaration part contains all procedure and function declarations 
local to the block (see Chapter 17X^.v^,« '•- -'-— — -- 

procedwe-and-function-deciaration-part * ..■-^■''-' '.^.,-;*-- i 









procedure-declaration 






^ 


/ ^ 






t \ 






k 












" 


^^-« 


function-declaration 


J 


i 


















■ 





,-w-*— «-»4~rj>^ 



ipe^^oosf 



Rules of Scope r 

Prior to any use of an identifier or label, it must be declared. Once declared, however, its use is 
valid within a defined range of the program. This range is called the scope of the declaration. 



.* _^^ „L«.:u«..rM»r»v^!«ft^^AEh..<¥f&t:'fiMr^- 



■-OK ?-?.— ^" 



Scope of a Declaration 

The appearance of an identifier or label in a declaration defines the identifier or label. That is, 
the identifier or label is associated with its meaning at the point of declaration. All other applied 
occurrences of the identifier or label must be within the scope of this declaration. The scope of a 
declaration is the block that contains the declaration, and all blocks enclosed by that block 
except as explained in the sections which follow. 



Redeclaration in an Enclosed Block 



..I i". I. .. *i* 



.-. ^ / - . t -■< A'-h V'ii^' it»V.\' 



Suppose that outer is a block, and that inner is another block declared within outer. If an 
identifier declared in block outer has the same spelling as an identifier declared in block 
inner, then block inner and all blocks enclosed by inner are excluded from the scope of the 
declaration in block outer. 



lj: 
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v^ 



Position of Declaration Within Its Block 

The declaration of an identifier or label must precede all applied occurrences of that identifier 
or label in the pro-am text. That is, identifiers and labels cannot be used until they are 
declared. 

There is one exception to this rule. In a type declaration, the domain type of a pointer type can 
be an identifier that has not yet been declared. However, the forward referenced identifier must 
be declared somewhere in the same declaration part as the pointer type. 



Redeclaration Wittiin a Block 

An identifier or label cannot be declared more than once within a block, unless it is declared 
withm a contained block, or if it appears in the field-list of a record declaration. 

A record field identifier is declared within a record type. It is meaningful only in combination 
with a reference to a variable of that record type. Therefore, a field identifier can be declared 
within the same block as another identifier with the same spelling, as long as it has not been 
declared previously in the same field-list. An identifier that has been declared can be used 
again as a field identifier in the same block. 



Identifiers of Standard Objects 

Complete Pascal provides a set of standard (predeclared) constants, types, procedures and 
functions that behave as if they were declared in a block that contains the entire program 
Iheir scope is the entire program or unit (See Chapter 20). 



Scope of Unit Interface Identifiers 

The identifiers declared within the unit interface part of a unit are provided to a program or 
unit which specifies the unit name in a Uses clause. These identifiers act as if they were 
declared in the same block where the Uses clause appears 



Activafions 



The execution of a block is referred to as an activation of a block. At any given time a block 
can have zero or more activations. If a block is not currently being executed, then it has zero 
activations. If a block is being executed, then there is at least one activation. When a block has 
more than one activation, it is said to be recursive. 
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,n .m w , * v ^ qm H" 







■6» WW' '-/'•TH^H" 



.^JVWSM^IMWV '-^^c:**-*-—!.-.^-'' 



- sSr^s^jdO ^Dbj^c:4? V^ ,;t.i=T"Tf ^v. 







-.0 ffre-nicTiq r. 5I ^;ji»v<rm *T« Si-mi &-^trm «3&^^--t« *«*» 9*!c! m4?-H-#r hi^f-.^j^^ ^'-^^^ 

t^t^<^ 3^S^ ?Wi fij'^v 'v^'tf*'.' S^iiCt ^t'T-'. :- V 



.-■ : -.. • ■-•J 
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Types 



ap 

oTvalueslIt ^ip '' ^' m'"^' ''' '^^' ""^' ^' ^^^"- ''^^ ^^^^ ^^ ^ -^"^^^^ determines the set 
dP.?.r?f-n f^ V ^'^^^^ .<?" assume and the operations that can be performed upon it A type 
declaration mtroduces an identifier to denote a type. P ii. /v type 

(tn<f3l>etl&iitt SKi ISC^i f-t.is;» D*Ti: &5C sn^c >:;i;? n:»^i;.; •:„- 



nn« ^f^\:^ it^ 



type-declaraiion 



» j idcntiTier ~] — ►Q » | type 



:^i* s^iwv ^x<sa,f f?%!KiS.'S, *a f::;:; o^a-.":! .'irij,ijr:vf •-lisaoc-.'- 

firrl?r'''^'"'K-r7? ^'^'^ '" complete Pascal and are discussed in detail below. There 

ditaifS thisch?f '' """"^ —defined types. User-defined types are also discussed [ 
aetaii in tnis chapter. fi»^i* rt«. ig i^jifs-v >^a .;•? ,i>!*?jiyv^ 



in 






O-pe 



r" 



simple-type 




structured-type 



string-type 



pointer-type 



object-type 



:^- 



:-r- 



:^v'^^^^"'5l>- 



i^ntVerftrThelT r'^'VI*?.' ^''^ ^'^^ "^ '^ '^^' declaration, it is declared as a type 
:n:rude1L^irii:e"°t^™.t?^^^^^^^ '^"'-^«™ ">"-=• ^ '^- ^-^-"fi-'^ -P^ ^oes^n^ot 



a6«i,-^.v- --.- 



O 



Simple TVDeS ^** *^ etaoBKua mwfw--^m i&^^s^u» a ewi as^sj.^ '^Qy;: -^^jsu;? 
All the simple types define ordered sets of values. ^,„ ^^, ^^^^i j„.,.o,.--'.:-v 



simple-type 







ordinal- type 



* ••■6-"'*^' "wtyvJ t-ft J:-,iw. ' 



real-type 



An integer type identifier is one of the standard identifiers Integer or Longlnt A real type 
con:t::!:r:;;irZ.::SS:^r"^'^ -^--':--^-- see chapter n on how to denote 
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Ordinal Types. 



ii""" 






Ordinal types are the subset of the simple types that have the following special characteristics: 

• The possible values of an ordinal type are an ordered set and every value has an 
ordinality which is an integral value. Except for integer types, the first value of every 
ordinal type has ordinality 0, the next has ordinality 1, etc. For integer types, the 
ordinality of a value is the value itself. Every value of an ordinal type except the first 
has a predecessor based on the ordering of the type, and every value of an ordinal type 
except the last has a successor based on the ordering of the type. 

The standard functions ord and ord4 can be applied to any value of an ordinal type, and 
it returns the ordinality of the value. _ 

The standard function pred can be applied to any value of an ordinal type, and it returns 
the ordinality of the predecessor of the value. .,..,- . 

The standard function succ can be applied to any value of an ordinal type, and it returns 
the ordinality of the successor of the value. 



■ !i 



Complete Pascal has four predefined ordinal types: Integer, Longint, Boolean, and Char. 
In addition, there are two classes of user defined ordinal types: enumerated types and subrange 
types. 

ordinal-type 




subrange- type 



enumerated-type 



ordinal-type-idcntifier 



i5;jj? 



Each class of ordinal types is discussed below. sjj^dt- ^'^ ^^^ 



k r^^^^ -i ^ -^^''^ ■Kil-i'VJ -^V^^ 



.asw vj -m3(':'^4 yrt .«' ■: 



.^ U'.' 



standard Ordinal Types 



-4fiea?i^ 



SSS^^fsS^S&l*''*»'-!.l?i^:^'-=-"-' -■- 



Integer Integer type values are a subset of the whole numbers. An integer type variable 
can have a value within the range -maxint-l. .maxint, that is, -32,768 to 32,767. 
The standard Integer constant maxint is defined as 32,767. The range 
encompasses 16-bit, two's complement integers. - - 

Longint Longint type values are also a subset of the whole numbers. A Longint type 
variable can have a value within the range -maxlongint-l . .maxlongint. The 
standard Longint constant maxlongint is defined as 2,147,483,647. The range 
encompasses the 32-bit, two's complement integers. 

' 'ft**! Arithmetic operations with integer type operands use integer (16-bit) or Longint 
. fP' J. J. ^ (32-bit) precision according to the following rules: 

• Integer constants in the range of type Integer are considered to be ot type 
Integer. Other integer constants are considered to be of type Longint. 
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• When both operands of an operator (or the single operand of a unary operator) 
are of type Integer, 16-bit precision is used, and the result is of type Integer 
(truncated to 16-bits if necessary). Similarly, if both operands are of type 

xr. .nr. .. Longint, 32-bit precision is used, and the result is of type Longlnt. 

• When one operand is of type Longlnt, and the other is of type Integer, the 
,^ ^ . Integer operand is first converted to Longlnt, 32-bit precision is used for the 

&rt.. .r=qx- -^ operator, and the result is of type Longlnt. 

• The expression on the right side of an assignment statement is evaluated 
independently of the left side. 



An Integer value may be explicitly converted to a Longlnt by using the standard 
:r * - ^ function Qrd4 described in Chapter 20. 

A as ifiifii's Tit tifi,dS ti-ii a- -i inr-'i ^ ■ ■. • 
Boolean Boolean type values are denoted by the predefined constant identifiers false and 
true, where ord (false) =0, and ord(true)=l. Values of type Boolean are 
rfiiftn-^u-: required by the Pascal If statement, Repeat statement, and While statement. 

Char The Char type has a set of values that are the ASCII characters. The function call 

Ord{Ch), where Ch is a Char value, returns the ordinality of Ch. A string constant 
of length 1 may be used to denote a constant Char value. Any value of type Char 
may be generated via the standard function Chr. 



r. tAi^;'J 



Enumerated Types 

An enumerated type defines an ordered set of values by enumerating a collection of identifiers 
that denote these values. The ordering of these values is determined by the sequence in which 
the identifiers are listed. That is, for two enumeration identifiers x and y. if x precedes y then 
the ordinal value of X is less than the ordinal value of y.--^ .^ -=. - . - , 

\ ^(£) ► ! identifier-list | KD" 



► 



-^ r ^^.. 



When an identifier occurs within the identifier list of an enumerated type, it is declared as a 
constant for the block in which the enumerated type is declared. .The type of this constant is the 
enumerated type in which it is declared. The ordinality of an enumerated constant is its 
position in the identifier list, where the ordinality of the first enumerated constant in the list is 
always 0. 

Examplesof enumerated types: ^SfM v'M^^im^ - ^-^i^iliy^:-' >-;- 

riT,m"--.T I'^i m-'i. ri" — UJi ria i.fT"r''i ■!' -ij-i r-ri~Mi-an]-.MJ i n fa ■>■ "''ifnpairai.ii''"f"TniiWi'ft i ■ ^"f^ I'i' m " n " -i ■ - -"^^ -- -- — ' -^^^^^ *' - * ' -■- 

suit = { club, diamond, heart, spade ) '<^>^ >..;-:■■ 

color - ( red, yellow, green, blue ) . J^S 

Given these declarations, yellow is an enumerated constant of type color with ordinality 1, 
spade is an enumerated constant of type suit with ordinality 3, and so on. For the above 
definitions of suit and color, the following relationships hold: 

K ^:;, ord (club) < ord (diamond) .^':ri IsisUiii^'^fitliiUs ^ilii' i'^^^-i^i- •:)»-■'-',• ; 

. ord (green) > ord (red) 1mK\ Msiii-f, ^::, ■^},.:U Aio-.^ .9.;'. .: vl;i-'.- V ..-.■■ 
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IV pred(diamond) =club i"« r-rfj .0^ .cl^t^t. .- V .i>.Tu it^^^n r^ ^-i n- 'I- ■ 
•U succ (green) = blue '^ -*^>^V* "'^^^■■^^^^'^ '« V^ "^ '^^'-'r^^^ -,; ' ' l 

Subrange Types _^ ^j ,^^^ ^^ ^^ .^(tifc^rcr c.,ii?4 '>f' ^r Hna^sqo ^^n.:: niii^'-^ « 

A subrange type defines a subset of the values of some ordinal type called the host type. The 
definition of a subrange type specifies the smallest and the largest value in the subrange. 

subrange-type 



*» 



constant 



<Z> 



constant 



Both constants in a subrange type must be of the same ordinal type. Subrange types of the form 
a..b require that a is less than or equal to b. 

A variable of subrange type possesses all the properties of variables of the host type, with the 
restriction that its value must always be one of the values in the range defined by the subrange 
type. 

Examples of subrange types: -sr/xh-vt »^i znttti-^f- ,»t^&'? liSriOftt-: .-^r; -.tv-^.f* .(.tO. ■• :j 

1 . . 100 .1(0 aarJom^ tnA-iilKtJa OfSl Ri* b*;ist^1*^. v: xr . •,; 

-128. .127 
spade. .heart 



Real Types 

The real types have sets of values that are subsets of the real numbers, which can be represented 
in floating point notation using a fixed number of digits. In general, a floating point notation 
of a value n is comprised of a set of three values m, 6, and e such that m * b® = n, where b is 
always 2 and both m and e are integral values within the real type's range. These m and e 
values further prescribe the real types's range and precision. ^^v^iSi^v^-iwiv:. 

There are four standard real types in Complete Pascal: Single, Double, Comp and 
Extended. In addition, the standard identifier Real is defined to be equivalent to the type 
Single. The real types differ in the range and precision of values they can represent. ., .. , 

Real Types 

Type Identifier Memory Size Magnitude -titv->4',t:- ■ : : ■ 

Real, Single 4bytes ~.^^- .,, approx 1.4E^5 to 3.4E38 

Double 8 bytes i '^-'-^ . approx 5.0E-324 tol.7E308 

Extended lObytes approx 1.9E-495i to 1.1E4932 

Comp, Computational ,o a^^V ''■*> Sbytes >sJir-*33'U''»!- approx -9.2E18 to 9.2E18 

Real type variables may have the possible values::^'*^" >-i;woIh:" ■'^.i* ": t -. ■ " "»• Jt'-. ' ' • 

• Finite values (a subset of the mathematical real numbers). Note that the value zero has a 
sign associated with it (i.e. zero may be either positive or negative). '- ■ ■* " ■- 
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• Infinite values +INF and -INF, which result from overflow of a real number storaj^e type 
.. and division of a finite number by zero, r ) t. j-f 

• NaNs (Not a Number) represent the results of operations which have no mathematical 
interpretation, such as the result of multiplying ±00 by zero is a NaN NaNs are 
the NaN*" '"^ ^^""^"^^^ ^'''''^^^ ^^ NaN (x). where x is an integer that defines the source of 

As defined in Table 13-1, the four real types differ in the range a!id precision of values and 
storage space required. 

iAjju»vf)l.i:« rv> : ■"---. .— - 

• Single (or Real) types require 4 Bytes of storage and their magnitude ranges from 
^^BdZ'tT !^^^^^^^^ ?^.^^^>^°".°^^''^^^^ ^^^^^^ is 7 or 8 

' rn'?i9/f^r'7^T,r o ^^^^^ ""^ "^^^""^^^ ^"^ ^^^'"^ magnitude ranges from approximately 
^^5.0E-324 to 1.7E4932. Precision of Double values is 15 or 16 digits. 

Extended types require 10 bytes of storage and their magnitude ranges from 
approximately 1.9E-4951 to 1.1E4932. Precision of Extended values is 19 or 20 digits. 

Comp, or Computational, types require 8 bytes of storage and their range of values is 
approximately -9.2E18 to +9.2E18. The exact range is -263+1 to 263-1 (-263-5 treated as a 
^ A ifTf 'yP^y^"^b^«s are used for fixed-point values, where the decimal point is 
placed by the application. Although Comp types may store only whole numbers, they 
should not be considered extensions of integer types since Comp values are converted to 
Extended before being used in calculations. 



i 



- •*■>*, mrn-tHM- ^M tfiy "T-, 



nT11T%^ '" ^oTx^.l'^ ^^''^^ ^^^ implemented using the Apple IIGS Standard Apple 

Numenc Environment (SANE) package. Real type operations result in code which calls SiS^E 
Additional, real type operations are available in the interface file SANE.p. For complete 
information about SANE, see the Apple Numerics Manual. complete 

♦ Note: All real values are converted to the type Extended by the compiler before 
calculations are performed so that maximum accuracy can be obtained Thus 
calculations on data stored as the type Extended result in faster and more compact code 
than calculations on data stored in other representations. The smaller representations 
should be used when data storage space is more critical than execution speed 



■|*M*Mi-W«(f— -^^(W«. .*Ww^ S*,^' 



Structured Types »^ .^inia arf^^ ■'^-■•^ *5!»ri^,^^^ sda ?? > .- h^^w 5i.> ri-vrHi .5^:, -. ■ , *■ 

v^svta -;dj V !?Si2«SiKii> .i-?j!t9 -i&i 3r^ «5^"5'^ ^Etni 5^ojn ic sv- vj : .: j • ■; 
A srr^c^^rerf-iype characterized by its structuring method and by its'component-typeCs), holds 
more than one value. The type of a component may itself be structured and there is no inherent 
limit on the number of levels to which types can be structured. 



i7*'{(J\ '^''.* >iJ 



. fi 
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">■'('■!} :>^^."-*' '-Js Ty.'*«-;' 



structured type ■ . 



^ 






rjijK a^j; rt'<.r 'l<? ruAkiHtVx ^t *i tf^RSt sii ni 



' — ►{ packed 



array type 



, ■''■■A- 



set type 



file type 



record type 



structured type id 









» 0^-.^.>. 



The use of the word PACKED in the declaration of a structured type indicates that storage 
organization of all values of that type should be compressed to economize storage, even if this 
causes the access of the component of a variable of this type to be less efficient. ^. ., ■ ? . ;,:, 

Structured types may contain other structured types in its definition. However, use of the word 
PACKED only affects the representation of one level of the structured type in which it occurs. 
Although the word PACKED can be used when declaring a structured type, PACKED only affects the 
storage of record and array types. Note that you cannot use components of packed variables as 
actual variable parameters to procedures and functions. 



•t-fj..'*- 



•^-.t-tti- '■ 



^ ♦ Note: Complete Pascal only supports packing to byte boundaries. Bit level packing is not 
-'■ implemented. For more information regarding storage allocation and data 
x'- representation see Appendix D, Inside Complete Pascal. ^^^ s^^njr^' ^^Kn* ; ■- -='ff *•■ - 

Array Types , ^-.^^^y^ ^^^^ ^. ^-^^ b^mm^^tai e^s im^^'t f^s^ig*TI«^^ -"- ^■■'^^^- -7 •■ ■■ ■- 

An array type defines a structured type which has a fixed number of components that are all of 
the same type. l^iMicm »a5*<**^^«^: ^^-l^""- *^' '^^^ -■■'"'-''■' -*"*'"-^" "■"^ " " 



ste.^arJ ^a^ 



array-type 



.■jrmthJl M**> 










index-type 



>- ordinal-type 



;-,5SSe?S5? ?-?^J:^^?^!r='S53i^T^i2-" 



.^..^---^.^j^aiSii :;..:.-■ 



The type that follows the word of is the component type of the array. The number of elements is 
determined by one or more index types, one for each dimension of the array. The index type 
must be an ordinal type. There is no inherent limit on the number of dimensions an array type 
can have and index types of multi-dimensional arrays need not be of the same type. 

*t* Note: Complete Pascal restricts the size of an array variable to 32,767 bytes of storage. 

An array type of the form 

packed array [l..n] of Char 
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IS referred to as a packed string type. A packed string type has certain properties not shared by 
other array types (see "Identical and Compatible Types" later in this chapter). 



Examples of array types: 



S-^* 



array [1 , . 100] of Real . . . ■ - 

packed array [color] of Boolean Ji?-irr3i'?»^': H ^"' " " 

array [Boolean] of Integer .. ^- . — 

array [low. .high] of Boolean 

If the component type of an array is also an array, then the resulting type can be considered 
either an array of arrays or as a single multi-dimensional array. For example, 



array [Boolean] of array [0 .. MaxSize] of Real 



- 1 !,, 



is equivalent to 

array [Boolean , 



MaxSize] of Real 



-Ok 



A component of an array may be accessed by giving the index(es) of the component inside 
brackets immediately following the array identifier. Multiple sets of brackets may be used. 
For example, given the declaration 



■yar anArray: array [1 .. MaxLength , *f ■^/.'' MaxWidth] of Real?/' 



the expressions .8ti«^t h. - . ...^ *-rs ^ - '-■•r^ 



-*,■: ■. 



anArray [1, 1] 
anArray [1] [1] 



5^". j,f5=^-l. -iHj 



both access the same component, the first element of the first subarray of the array anArray. 

Note that , * 

rTS. J V, __ J 

^-^r~""^ >--"-< 

anArray [2] 



'.iey^^!-^' 



accesses the entire second subarray. 






Record Types 

A record type consists of a fixed collection of components called fields, each of which may be a 
different type. For each component, the record type specifies the type of the field and an 
identifier that names it. 




field-Usi 



\ 



fixed-part 



-^Ki>T 



van ant-part 



^ 



■•■■A" ^f^V-'-'"'^ :.-:i';<i; -"• '- '-■ 



Js^ 
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,H htftvdr ioij .-■■^.i''' fixed-part 



field-declaration 



<D- 






i<^>- ■/ji--'<: '.'•. 



field-declaration 



identifier-list 



O 



type 



. I '■■-■''■'' 



The fixed part of a record type specifies a field list that is always accessible in a variable of the 
record type, giving an identifier and a type for each field. Each of these fields contains data 
that is always accessed in the same way.,^|ggj^^j^j.jj.,,^( ^a^^^^ s tn t.) -^..-srcf^ ^v n;-"-: . ■ ■■ ■ 



Example of a record type 



record 
year: 

month : 






><>*.< 



0.1 



rt^',. -'.f-M ' 



e'hrafs 



day: 



end 



Integer ; 
1..12; 



A variant part consists of several alternative field lists which are allocated in the same 
memory space of a record variable, thus allowing data in this space to be accessed in more than 
one way. Each of the lists of fields is called a variant. The variants "overlay" each other in 
memory, and all fields of all variants are accessible at all times. 

♦ Note: Complete Pascal restricts the size of a record variable to 32,767 bytes of storage. 

variarU-part 



■'""" -^^f^yof^^^i^^^:^ 



V- ;s 



variant 




constant 



O 




T) — ► ! field-list I — ►()) 



t I'f ■ 



d^'y- ■ \.\' 



lag-field-type 



ordinal-type-identifier 



- s-^<?^---: '-■ -^<:- 



Ta hi'-''- b^sd sH* "io iS"^\f- -»'!= •?^j**w*.«-i -«.'>tx- -■—'-■ - 
Each variant is introduced by one or more constants. All of the constants must be distinct and 
must be of an ordinal type that is compatible with the tag field type. The variant part allows for 
an optional identifier that denotes a tag field. If a tag field is present, it is considered a field of 
the previous fixed part. 



Examples of record types with variants: 



.;t 



ritv 



-^. 



-(.y^-i^-i 



n^-as^x& 



record 

name, first Name : string [80] ;^_^ ^ 

age; 0. .99; 

case married: Boolean of 

true : ( spouse sName : string [80] ) ; 



JTJjT l^v-.^-.^)^™.'— j S'l.ifJ-tSra^ W y-- 



Language Reference 



T^ . 



Types 



false: () , 

end ' . ;';■(>*?>'.■: . ■- :; c ^ - 

record ;o;t}ttJ.*1 hns H^ftyjjca^fqE ^i J>»*?jjf j '^i tf^ a<ri4pi-T«'- ■yU: ^■/.■t.-i ': .'r-.^,-/^ ■. .. . 

x,y: Real; ■ -*.- 

case kind: figure of 
•i'i} r^ ^ rectangle: (height, width: Real) ; ^^^Sti^' J^ ^vih>>^i. -^ ^iiy^^-.-; - .:■ 
triangle: (sidel, side2, angle : Real); .^^^^^i^^'U :y--''-'-^-- ' \ 

circle: (radius: Real) ; 



Set Types 

L't ^^^^,}\^^ ^^^"f °^ ^^^"^^ that is the powerset of some ordinal type, called the base'ty'pe 
bach possible value of a set type is a subset of the possible values of the base type. 



fiT£SWT»4a »H.^ set-type 



ordinal-^TK 



jr- 



♦ Note: Complete Pascal restricts the base type to not more than 256 possible values. If the 
base type is a subrange of integer, it must be in the limits 0..255. For more information 
regarding storage allocation and data representation see Appendix D. 

Every set type can hold the value ( 1 , called the empty set. '"' ' 

Example of set type: j-*'-^*-- - ^B<S'^!-''iTj> 

Set of Char . ' 

"V . Set of .. 31 . - - . - -.i! c?-?*e7f-^hv.yM tjc ■:.-. ■ 

*^* -set of (red, green, blue) . ^. . ^H^i^-- ^iHAh^:^ J--ii ^ , ■ 



File Types 



A file type is a structured type consisting of a linear sequence of components that are all of one 
type the component type. The component type may be any type that is not a file type or a 
structured type that contains a file type component. The number of components is not fixed by 
the file type declaration. -^ 



file-type 



i: ,=i95->fi^ejl? -^^d — ► ( file) HToO- 



type 



',..'>. 



The standard file type Text denotes a special packed file of characters organized into lines 
i-iies of type Text are supported by special I/O procedures discussed in Chapter 19. 

•> Note: Due to the representations of types in Complete Pascal, a AVe of Char accesses file 
components which are 16-bit words, whereas a packed file of Char (or Text) accesses file 
components which are 8-bit bytes. For more information regarding storage allocation 
and data representation see Appendix D. 

Example of file type: ' - .. . 
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IntFile = file of Integer 

Complete Pascal allows file variables to be passed to procedures and functions only as variable 
parameters. 

,i:v:^"r .'^- - 
Chapter 19 presents a detailed discussion of files and operations which may be performed on the 
different types of files possible. 

: i ( ,-.i^?v -n, (ill t ; . V ■-"■ - ■ 



String Types 



:^n.. 



A string type value is a sequence of characters with a dynamic length attribute and a constant 
size attribute from 1 to 255. The constant size is a maximum limit on the length of any value of 
this type. If an explicit size attribute is not given for a string type, then it is given a size of 255 
by default. 

The current value of the length attribute of a string type value is returned by the standard 
function Length. A null string is a string type value with a dynamic length of zero. 



ooiis^-fn !'-•>. ■. 



string-type 
_ 



¥ 



» ( string ) y-»CD~~' H size-attribute | — ►(T) 



string-type-identifier 



-J" . ' ■- ' ' ■ ' L ■ 



4 .-.■»^ s , fj--' '■.'. 



size-attribuie 



> unsigned-integer 



The ordering relationship between any two string values is determined by lexical comparison 
based on the ordering relationship between character values in corresponding positions in the 
two strings. When the two strings are of unequal lengths, each character in the longer string 
that does not correspond to a character in the shorter one compares "higher"; thus the string 
value 'attribute' is greater than the value 'at'. Two strings must always have the same lengths 
to be equal. 

A string is stored as a one-byte length field followed by the characters in the string. Therefore, 
the length of the string can be changed by reassigning the zeroeth character as follows: -, _ -. - 



.tfV':--^lJ- 



aString[0] := chr(5); 



" ■ '»v<i 



Note that this does not alter the contents of any part of the string past the zeroeth character, it 
only changes the length attribute of the string. 

Operators applicable to strings are specified in Chapter 15. Standard procedttres and functions 
for manipulating strings are described in Chapter 20. 



c. : ■ , 1^.! 



:;> iKitititr^?-/*':-^" 



Example of string types: • \ . '.,','' V t ,.., ^w ii- - ., .i-. -f 






string [255] 
string 



■■- t.'i.-;.- 
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Pointer Types 

A pointer type defines a set of values that point to dynamic variables of a specified type called the 
base type. A pointer type variable contains the memory address of a dynamic variable. 



pointer-type --^ , ■_ — 

^\a) ► type-identifier 



If the base type is an undeclared identifier, it must be declared in the same type declaration part 
as the pointer type. 

You can assign a value to a pointer variable with the New procedure, the @ operator, or the 
Pointer function. The New procedure allocates a new memory area in the heap for a dynamic 
variable and stores the address of that area of memory in the pointer value. The @ operator 
directs the pointer variable to the memory area containing any existing variable. The Pointer 
function points the pointer variable to a specific memory address. The Pointer function and 
the e operator avoid Complete Pascal's type-checking safeguards and should be used with 
caution. New and Pointer are discussed in Chapter 20. 



Chapter 14 discusses accessing a variable pointed to by pointers, ^S<n** *"-' VJn::.r.v--^!<' '■ 

The predeclared constant identifier Nil represents a pointer valued constant that is a possible 
value of every pointer type. Conceptually, Nil is a pointer that does not point to anything. 

Example of pointer types: 

"Longlnt; 

-Char; ■ ' \. M^i'^i^y:/ A-i^ ■■.: ■" 

''Stringt32]; 



Identical and Compatible Types ^^^^^^^s^?it*'-^*?^w*r>^^ '-' : ^ ; i^ 

Two types may or may not be identical^ and identity is required in some contexts. Other times, 
even if not identical, two types need only be compatible, and other times assignment 
compatibility is required. 



Type Identity 

There are three levels of type compatibility in Pascal: ^ ^' ^t2^^Hi-ti5'-T''-'i^ ■-_" 

• Two types may be the same. Two types are the same when they are declared using the 
same type identifier or when their definitions can be traced back to the same type 

^ - '' identifier. 

• Two types may be compatible. 

• Two types may be assignment compatible- 
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Compatibility and assigninent compatibility are discussed below. 
Identical types are required only in the following contexts: 

• Between actual and formal variable parameters. =»--■ -^-^ vi o^n;:; : v ->■ 

• Between actual and formal result types of functional parameters. 

• Between actual and formal value and variable parameters within parameter lists of 
procedural or functional parameters ^ . .. . i. ^ . > ■ . 

• When a one-dimensional PACKED ARRAY OF char is being compared with another via a 
relational operator. ,*.-.- ._, . .. , . 

Parameters are discussed in Chapter 17. _,,^^ . -^^ _^^ *.v^* %« ..«*^f. ;■,.> ^.-j ■ .«..»- .,....■■ 

Assignment compatibility is usually required in other ccntexts, although simple compatibility 
is occasionally sufficient. , "■","■ * ',','" Z ' , ' "V ", ,, .', 



Compatibility of Types 



„-( ^^ r.^s..^:. ._ ^i^^i. 






Compatibility is required in most contexts where two or more entities are used together (i.e. in 
expressions, and FOR statement control variables and their initial and final values, etc.). 
Specific instances where type compatibility is required are noted elsewhere in this manual. 

Two types are compatible if any of the following are true: 

• Both are identical. 

• One is a subrange of the other, 
s?, • Both are subranges of identical types. _^.^^^'3^:^:^:^^t"^'^ik- -~'^t^"'- '- " 

• Both types are set types with compatible base types. , .j^|;^if;t>^Htt'."?0 bf'O *.,;x>:' • \ 

^, • Both are string types. . rri bst:/J^t>«'t J^t V>>^^tf;&t =^vv; ,t«!^-:yi>^:t ^^^ ^r^^ w^^- :^-.vc ■ 
jj., ■•■:.■ 

• Both are of type packed string type and have the same number of components. ,,.. ... . 



Assignment Compatibility 

Assignment compatibility is required whenever a value is assigned to something, either 
explicitly (as in an assignment statement) or implicitly (as in passing value parameters). 
A value of type t2 is assignment compatible with a type t j if any of the following are true: 

• t^ and t2 are identical types and neither is a file type nor a structured type that contains a 
file type component. 

" t-i is a real type and t2 is an integer type. 
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• ti and t2 are compatible ordinal types, and the value of type tn is within the ran^e of 
possible values of t]^. -^ ^ z tc u. 

tj^and t2 are compatible set types, and all the members of the value oftype to are within 
the range of possible values of the base type of tj^. 

• tl and t2 are both oftype PACKED ARRAY of Char. 

ti IS a string type or a Char type and t2 is a string type of a quoted character constant. 

tl is a packed string type with n components and the value of type to is a string type of a 
quoted character constant and has a length of n. This is not true, however if n=l 
because a string constant of length 1 is a quoted character constant. 

It is an error if assignment compatibility is required and none of the above is true. 
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Variables 



S^*j2S5'?:-^^?^?:^!S¥?vS>'?si---:^aS3^^'ss5eS£"- .■■?^:i?i:;i«ta-;SF?v'^v^--. ■ 



^vo^-Ar 



.^iffS'iatB' ''Ji'iS:'' 



'.'ll 



"^H!' 



Variable Declarations 

A variable declaration is used to allocate and associate a piece of storage with a particular type 
A variable is an entity in which value(s) are stored. Each identifier in an identifier-list of a 
variable declaration denotes a distinct variable possessing the type of the variable declaration 



variable-declaration 



identifier-list [ — ^Q » | type 



The occurrence of an identifier within the identifier list of a variable declaration declares it as 
a variable identifier for the block in which the declaration occurs. The variable can then be 
referred to throughout the block, unless the identifier is redeclared in an enclosed block 
Kedeclaration creates a new variable using the same identifier, without affecting the value of 
tne original variable. - , ^...-. . ,, , (,~,„ — ,i. , - ^^ ^^^-- , ._ ._.:- -..- ** 

All variables have undefined values with the start of activation of its containing block. The 
mam program block is activated when the program is executed. The procedure and function 
blocks are activated each time the procedure or function is called 

Variables declared in procedure or function blocks can be no larger than 32K bytes. ^ *^ 
Examples of variable declarations: ^^^ ^H•^^^i^ ^i^ ,'^^f^n s-fiji-.v.* (^ii t5--..?«^it ^l^;^-:i:4-: - •-•; ■■ ^ ' 



Pl/p2: 

today: 

^:.U operator: 

*r>,;.. digit: 
g,,,^ coord: 

done, error: 



■■ mjt^pwi I »* i*» 



■TJf"4tfc^%^ ->■,-*«. *rJ,'*,V3r. 



jf^j^^^o^^ h^^c- ,c^. -^^Jl /■ 



real; 

color; -•«''-—*w" 

person; 

date; 

{plus, minus, times) ;rSs^ el sl^^-J^a'/ %&%-fn oi ?r= ,htv.-',:?fp' .*= 

polar; ■* - !^j^j(,^ j( y^4 {^tjttii-h *i »*Ut^'i^\V ^las-r;^ ■: -.iii'v-' 
boolean . ^^Mji^i^t^ liSiO '.^nii^^t* »;;ri»rtr te \<- :.----t' -■■ 



Variable References ^^ 



O^" 



A variable reference denotes either an entire variable, a component of a structured or string 
type variable, a dynamic-variable pointed to by a pointer type variable, or a variable reached 
through a function call. Syntax for the various kinds of qualifiers used for variable access is 
given here. 
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variable -re/ere nee 



► identifier 



V^i «*ll »"^ 



\.i 



function-call 



qualifio" 



ZJ 



Qualifiers 

A variable reference is a variable identifier followed by zero or more qualifiers which modify 
the meaning of the variable reference. cUiv^MV.pjt.-* .'v ■ ■ 



3gv.a left; ^"^ift^r 



.. u.^.. -.*^.-,.ifA .-.* '..V-. 



index 



field-designator 



"-^L^ 



;— — HS) ;.._ 






There can be zero or more qualifiers following a variable identifier or function call, depending 
on the levels of structure in the variable and which particular level to be accessed. For 
example, given the following declaration 

var aMultibimArray: array [1..100] of array [1 .. 100] of Integer • ■■ 






the following references are all valid expressions. ,5 ^i-^^ ^;^ig*? f\-;;?^S^-;t^.jj ^^e:^ ' *' ' ■ ■ " 

• aMultiDirtiArray ^^.f,^ ^ fvife-rto^ ia ^-^^^fif^r^^^^J ^;^? ?^i^ ^^ ly^^^rU- -^ .-'r " ■ 

aMultiDimArray [1] 
BMultiDimArray [1, 1] ^^^ ^ ^ ^^^ ^^^^^ umB^jt^^ 7« T::t;t>?^T^ ^I ^^^'^^i- :'?- -'■-■ ' 

The first example accesses the entire array, the second example the entire first subarray. The 
third example access just the first component of the first subarray. 



Arrays, Strings, and Indexes 



; r^:/- 'X'J^^TS 



A specific component of an array variable is denoted by a variable reference that refers to the 
array variable, followed by an index qualifier that specifies the component. A specific 
character within a string variable is denoted by a variable reference that refers to the string 
variable, followed by an index qualifier that specifies the character position. 



index 



sssr-s^^^f.- 



<I> 



expression 



O- 



*Q> 



nof0^^^' -'" ^>- 



Examples of indexed arrays.f^^^^^-'"^^ « .sMf^hsy »iU:t^ «« ^ y<iSl»^^^^nt^f^ ■^■- ■■ 
l^r;ii-?r."»- -^J-v.i^y i' -TO ,s!eeh^^ ^^V -^f^^'^'^fX^ » v<3 e-i f>3J.;-:o<| ©K'?'-^v v.a'..;'V., 



'Vr'^-..-. 
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Each expression in the index selects a component in the corresponding dimension of the array 
ihe number of expressions must not exceed the number of index types in the array declaration 
ihe index expression must be assignment compatible with the corresponding index type. 

When indexing a multi-dimension array, multiple indexes or multiple expressions within an 
inaex can be used interchangeably. For example, 

has the same meaning a^^ »ft-*««'tsr m^ *a-9^ o5 ?£5:-n MHj s^if/^v --.v...^^_ r.r.L =■■..;,: ■ .!'M i 
MyMatrix f i, j}' ^^'^ ^^ ,*t>^iar««ir uiasis??xfo **^ 4^fr?'-'i^*^ S'^^ ft 



fti -'i'T' -^v-*^ T.' '(. 



A String variable can be indexed with a single index expression, whose value must be within 
the range On where n is the declared size of the string. Indexing a string accesses one 
character of the string value. The first character of a string variable (index 0) contains the 
dynamic length of the string. 

In general, a value cannot be assigned to an individual character position in a string unless a 
character previously occupied that position. That is, if the dynamic length of the string is less 
than the inaividual character position being manipulated, the operation will leave the string 
unchanged. Values may not be assigned to character positions beyond the current length of the 
string. 

Predefined procedures for string manipulation are described in Chapter 20' ''*'^'' '''*''' ''"' 



Siiyt--*.^'- : ,': 






Records and Field Designators vi^ 

A specific field of a record variable is denoted by a variable reference that refers to the record 
variable, followed by a field designator that specifies the field. 

e-^i ^di ,s«fwv. .. field-designator ^ ^_^ , , * -r^; J> -■nf. 



8» UB|eT»m{*w *\J ►l_identifi^ 

Examples of field designators: 



"^ ''^^S^^^ i^Ci i;:i^ 



today. year 

p2''. pregnant ■ * . , :v^t».m •:^-r,.V^'^S'.\:.iii-'' t:* ■^■v- jv-.- ■■■ 

It is anerror to access a variant component of a record that is not active. See Chapter 13 for a 
discussion on variant records. 



:>}';? 



The record variable identifier and period (.) may be omitted inside a with statement that hsts 
the record variable identifier. See Chapter 16 for a description of the with statement 
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Pointers and Dynamic Variabies 

The value of a pointer variable is either Nil, or a value that points to a dynamic variable. 

The dynamic variable pointed to by a pointer variable is referenced by writing the pointer 
symbol ^ after the pointer variable. f^-, :- , .?.-■:,■.: 

Dynamic variables and pointer values that point to them are created by the standard procedure 
New. Additionally, the @ operator and the standard procedure Pointer may be used to create 
pointer values that are not in fact pointers to dynamic variables, but are treated as such. 

The constant Nil does not point to any variable. It is an error if you access a dynamic variable 
when the pointer's value is Nil or undefined. J .. _ ..^ t., .,j*-,.^.> ^,i- .. ,> «•)'?, i-r , . .: ■,-■-■ 

„ , - - , , . ■ Ki 8'^-""^ ^^'' '^'^■' ■'^'^**'" -'-'^'^^ ■'' *'' ' ■ 

Examples of references to dynamic variables: ^. ..--,.,. ..;l; -^r, ,■■ ^ 7,...^ 



1^ ;.33:pl-. sibling- ii^^^^ '.^i^iBrfo i»«i.^-ifeM^r i>» .^^ b^<^^ ^^ fi J-'^'T.:^ n'n-^ :; .-^ '-■ - 



Variable Type Casts 



'JflSit i.:i\jit\:iSv!^ t^f^ 



A variable reference of one type can be changed into a variable reference of another type 
through a mechanism called a variable type cast. " " 
variable-type-cast 



type-identifier — P\ () ► variable-reference — ►() 



n^iti 



When a variable type cast is applied to a variable reference, the variable reference is treated as 
an instance of the type specified by the type identifier. If the variable and type identifier are 
both of an ordinal type, then the size of the variable (that is, the number of bytes of storage it 
occupies) may differ from the size of the type denoted by the type identifier. Otherwise, the two 
sizes must be identical. A variable type cast may be followed by one or more qualifiers just as 
a variable reference. 

Complete Pascal does not support the type cast of set variables. 

^.;^v ■ ■■ ^ 
Examples of variable type casts: >. ■- - : 

^ type Point = record } iyt^ys^i r"^ Aff^Pft-^mmj-iP^v'-.i^^ p sh-.^:- -i^ <■•' ''' ■■ - 

V, h : integer; , *->fo'-HT in^ -zf! ■ "'' 

end; 
^j.^^ var p: Point; ^j^^^- &t^55^t *d ^is? iJ htH"^xh-i& -^o-lHntjH ■Id.uvs^^ h . 

1: Longint; ^ <,^U ^<^ ffi^^H^^^S?^ ^ T-*^ ^^ '-^*'^'^-'' " '*^^ .-v^-i3:v-:i. ^^>/>- '- ^ -■ 
begin 

p := Point (1) ; 
1 := Longint (p) ; 

Longint (p) := Longint (p) + $00020002; 
end; 
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•V,?ii««BB 






Expressions denote values. The simplest expression is merely a variable reference, however 
most expressions consist of operators and operands. Most Pascal operators are binary that is' 
they have two operands. The remaining operators are unary and have only one operand' 
When more than one operator appears in an expression, precedence rules are applied to 
determine which operands are associated with which operators. For example, the expression: 

a+b*c 

can be interpreted as either (a+b)*c or a+Cb*c). The precedence rules make the interpretation 
unambiguous: 

• When an operand appears between two operators of different precedence, it is bound to the 
operator with the higher precedence , . „ _ . ^ 

• When an operand is written between two operators of the same precedence, it is bound to 
the operator to the left. 

• A parenthesized expression is always evaluated before it is applied as an 
operand. 

■ -. - " ' *" 

The precedence of the Complete Pascal operators are given in Table 15-1. ^^.rA ^ ■■-..■ 

Table 15-1 

Precedence of Operators ^ -^ ^- -^ '^- ■ .^- • ■*. . ■ - . 



Operators Precedence 



Category 



j»**««k. . •■••-^'•■-v. >-™»— ••■». Jf^ ^^ , 4- 



"^ "^ J»*-*N!W*k. ■■'•—^-^ >-»—»—••■». Jt^. i^p*. ,■ 4- 

* / rTiTr T^^^r. ..T^ WV highest -'V^ exponent and unary operators 

OR ' ^^^-^ '"'^"'^ •^^- "multiplying" operators 

^' "' ^ third "adding" operators and sign 

-, <>, <, >, <=, >=, IN lowest . relational operators ^-^j :. ■ 

Thus, a+b*c is interpreted as a+Cb*c), since * has a higher precedence than +. Note that a+b-c is 
interpreted as Ca+b)-c, since + and - have the same precedence 

The precedence rules follow from the syntax of expressions, which are built from factors terms 
and simple expressions. . ^ . ■ ^ ^ i- n -^-^ * • . -. 

The syntax of an expression consists of relational operators applied to simple expressions: 



r 

Language Reference |-5-l' 



Expressions 



.:i^. i'' -c expression 



V-.> 1' ! 



simple-expression 



T 



ijnois^ I t I t I I ( 




simple-expression 



y 



Example of expressions: ^^.^^^ ir^^j^ te^J^t .»ibn^- '--.^tto l-as t: V:Vr^^-3»s.o "* = >.r"^^i-'' ■■'-'Cf'; ■-■■':; 

■'done <> error 
p <= q 

The syntax of a simple expression consists of orf^im^ operators and Signs applied to terms: 
simple-expression 




Examples of simple expressions: 



•^■- t:ij :'■■ .'■"■ 






x+y 

-X 






b or c ^ ... 

The syntax of a term consists of multiplying operators applied to factors: 



' rnOMMinMlinl**" 



term 



-r> 



factor 






© © C^*) CdiT) (li^ Q^D 



Examples of terms: ?.T*-i«^^ffa i^nffiU-i^t 






X * y 
•A ?-C e / 
done 



^1 - e ) &d'it'iii,^y-^^^^T^%^i^'^iinfi^i^^^^'^m.i^''^r^^^ 
and error MJ^^fl'^.^T*? 9f"^^fc »«<-* ■••^a« "'J'S *» ^"'".'r' ' ""'''' " - ' ' ^ 



- :-J-H- 



.;..^A«-n^Ta*»0 -s-i-'fJ^V f-'^^ '.r->T' ■■V'-:l<»5 "i^ 



The syntax for a factor consists of the following basic constructs: 
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r 



factor 



V^ 







An unsigned constant has the following syntax: 
unsigned-constant 



t^ii 



->| unsigned-number 




■.:;r V - 






Examples of factors: ?H^^i any?* 9b* :ho aru- 'dw^jf"?*"^^ .i>s« ^p» ,*'J^ ,* -• ,* «!«-' 1^0 ■■'- ; iriVt': ^^ - 



is-i) ^K« tqittm^j 6i feel%ff*sw)S i'«#^ a* feftfe-^t^^jj 






15 



,«*.,..»{^ « *fl|.r. im^. vanable reference ^^ „ . . , , ,. 

^ V ^ (unsigned constant) . 

'hello worirf' ?# .-i'-^il^'i^^as^as.- r ■ j . ■, ^ '■ ■■"- •-.- >-'i- 

nexxo worxa ,. «*»^ (unsigned constant} /,, . 

^''"'■y-^^J (subexpression) ■*"" 

^^" ^^^2) (function call) . 

^ (negation of a Boolean) 

[■A'-.'F','a'..'f' 3 (set construction) 






V-y 



t WS J la ;!>;rii;-.'tft.?:^.-i •:= 



Operators 

^X^!:::d Z t:^l:^ -*.etie operators, boolean operators, set operators, relational 



Arithmetic Operators 



Sth!^irr'"^ ^r ^^^^'' '^°T ^^' ^^P'^ of operands and results for the binary and unary 
arithmetic operators respectively. j ^ 'u un^iy 
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Table 15-2 , ^,. , 

Binary Arithmetic Operations ' — ^-•— "^■^•-^■' - 



Operator Operation Operand Type Result Type ! 

+ addition integer, longint, or real integer, longint, or extended 

- subtraction integer, longint, or real integer, longint, or extended 

* multiplication integer, longint, or real integer, longint, or extended 

/ division integer, longint, or real extended 

4lir integer division integer or longint integer or longint .5,. --' 

mod modulo y integer or longint integer «-.— —- [ 

The symbols +, -, and * are also used as set operators and are described later in this chapter. 

The real types are Single (or Real), Double, Extended, and Conp (or Computational) and are 
discussed in Chapter 13. 

Table 15-3 

Unary Arithmetic Operations ^ ^-^ — '-^ — ^ 



w.-^'H: "•x-'j- 'f ■■■• 



Operator Operation Operand Type Result Type 

♦ identity '" -^— — integer or real type same integer or real type 

^ sign-negation integer or real tj^je same integer or real type 

If both operands of the +, -, *, div, or mod operators are of the same integer type (Integer or 
Longint ), the result is always of the same integer type. If one of the operands is type Longint 
and the other is type integer, then the integer operand is first converted to Longint and the 
result type is Longint. In either case, the resultant value is determined by the normal 
mathematical rules for integer arithmetic. It is an error if the value of the result is outside the 
range -maxint-1 . .maxint or -maxlongint-1 . .maxlongint . for Integer and Longint result 
types respectively. ■ ," . ' ' ^i i-,.---»-v 

♦ Note: The range of any operator is not infinite. Given an expression as follows: 

(a+b) -c ^ 

where a, b, and c are all integer values, an overflow error will result if the intermediate 
result of a+b yields a result greater than maxint. 

If one of the operands of the +, -, or * operators is of any real type, the result is always of type 
Extended, and has a value that is an approximation of the normal mathematical result. The 
result of the / operator is always type Extended. 

If the operand of the identity or sign negation operator is of an integer type, the result is always 
of the same integer type and the absolute value of the result is always identical to the absolute 
value of the operand. 

If the operand of the identity or sign negation operator is of any real type, the result is always of 
type extended and the absolute value of the result is always identical to the absolute value of the 
operand. 
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Boolean Operators 



V_/ The types of operands and results for Boolean operations are shown in the following 

Table 15-4 "^""^ „..-.— .^--.^ — . . -^._ - . 

Boolean Operations ' sf^r^a .i'^s. W^?6^«'.v.? t;. u-^-p- 



table. 



Operator Operation Operand Type 



Result Type 



or disjunction boolean --'»H'v^ boolean 

and conjunction boolean i-*«<J'i' boolean 

not ,.i >^k^i^ »; negation boolean boolean ''=' "''*"^'' 

The result of a boolean operation is determined by the normal rules of boolean logic e g a 
and b evaluates to true if and only if both a and 6 are true. ^ ' ^^' 



Set Operators 



The types of operands and results for set operations are shown in Table 15-5. ^"^^^^:- '■" ■ 

Table 15-5^ „«.fW -'JjiiambTrv il- r^^^j^m 9^1 5» ^isfs^-r s-l't .;;r,j_,! 

Set operations -^ i^<^ft»»m/^n wi^ i%>w*e ^^■f.-r-.s^jm ak *e* i©.'; v^*?? n^hrs.^- *.-=.= ,„ :»--.■ 



^^, Operator Operation Operand Type 



%M ti Joi^Tfe ^"i.**" compatible set types -^>,^ pm^^^'^^ - 

*ft} "iQ mV» fnfltct^f-^ ^ ^ ^ compatible set types . ^ « ^^j^.a >: v-;r* := v.i :o .--n; ^ ^ - ■ 

.TS .0^ ia^ ^. intersection^ ^^.^^.compatible set types ^^^ ^ ^j^.,^ .ni.;i.«0^ .r.-i..-;. 

The results of the set operations are determined by the normal rules of set logic. For example: 
• An ordinal value c is in the set a+b if and only if c is in a or in b. . . 

^^ An ordinal value c is in the set a-b if and only if c is in a and not in b, ...:. -H.. .i: :. 
^* An ordinal value c is in the set a*b if and only if c is in a and in b. '' :^'^ ■ . ^'\: 



Relational Operators ....^.- .**;.-.(:: 

Thejypes.pf operands and results for relational operations are shown in the following table. 
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Table 15-6 

Relational Operations 



Operator Operation tmf**o*wr Operand Type 



x>:»"l»5 ''~' - ' 



Result Type 



<> -^ 

> 

boolean 
<= 

>m 



equal to 
not equal to 
less than . 



.^Sv/4 



greater than 

less than or equal to 

greater than or equal to 



compatible set, simple, 

or pointer types 
compatible set, simple, 

or pointer types 
compatible simple types 
compatible simple tj^pes 
compatible simple types 



iy< 



subset of compatible set types 

superset of , compatible set types „; „&. 

member of "''" *" left operand: any scalar type T 

right operand: type SET OF T 



boolean 

boolean _^^., 

boolean 
boolean 
boolean 
compatible simple types 

boolean 

boolean » ' ,' 
boolean i'y.:' * = 



Comparing Ordinals 

When the operands of =, <>, <, >, >=, or <= are of an ordinal type, they must be of compatible 
types unless one of the operands is a real type. In this case, the other operand is allowed to be an 
integer tjrpe. The result is the mathematical relation of their ordinalities. When comparing 
real types, the results may not be as expected since the representation of a real value is only an 
approximation. 

♦ Note: Because of extensions provided for use with the Standard Apple Numeric 
Environment (SANE), the result of a comparison can be unordered. An unordered result 
occurs from a comparison involving a NaN (Not a Number). One important effect is that 
NOT (a<b) is true if either a is greater than b or a and b are unordered. Use of the 
Relation function, which is included in the SANE library, may be used to test for an 
unordered comparison. 



Comparing Strings 

When the relational operators =, <>, <, >, <=, or >= are used to compare strings, they are 
compared according to their lexicographic ordering. Note that any two string values can be 
compared since all string values are compatible. Additionally, a Char value is compatible 
with a string type value, and when the two are compared, the Char value is treated as a string 
type value with length one. When a packed string type value with n components is compared 
with a string type value, it is treated as a string type value with length n. 



Comparing Packed Arrays of Char 

The relational operators =, <>, <, >, <=, and >= can also be used to compare two values of a 
packed string type if both have the same number of components. If that number is n, then the 
result is the same as if the values were string type with each having a length of n. See Chapter 
13 for more details on packed arrays of char. 
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Comparing Sets 

If a and b are set operands then 

" a=b IS true if, and only if, every member of a is a member of 6 and every -**^'- ^ -'^ 
member of 6 is a member of a; otherwise, aob. 

'TO'r. y W»!(4-'tiK— 4i tiff/ ''•?1;3"- ; :, v;-f , ■' .•,.. 

• a<=b is true if, and only if. every member of a is also a member of 6. h •>-: r- ■•*;- '' 

' ^^r^ ^^ '"^^ ^^' ^"'^ °"*^ ^^' ®^^^ member of 6 is also a member of a. ^, .:-'r.v.- - -. ... . 
Thus, a-b, and aob denote the equivalence and non-equivalence of the sets a and b 
respective y, and a<=b and a>=b denote the inclusion of a in 6 and the inclusion of 6 in a 
respectively. 



Comparing Pointers 



The relational operators = and <> may be applied to compatible pointer type operands Two 
pointers are equal if and only if they denote the same object. 



Testing Set Mennberstiip 



iiZSi^llifij: :^J 



The in operator returns true if the value of the ordinal type operand is a member of the set type 
operand; otherwise ,t yields the value false. The type of the left operand must be compatible with 
tne base type of the right operand. 



Ttie @ Operator 



iJe^ (f < ■•*fef?S(>tf* fsaiti^ *S*!r'^^J^vv5er ili:U h *J!^-ii LS^f 



A pointer value that points to a variable, procedure, or function can be created with the 
operator. The operand and result types are shown in Table 15-7. 



t <1>fr'i*Tj^* .0 *Hfc^J%l** ^ - 



@ is a unary operator taking a single variable reference or a procedure or function identifier 
as Its operand and computing the value of its pointer. If the operand to the @ operator is a 
variable reference, then the pointer value is the address in memory where the variable is 
stored. If the operand to the @ operator is a procedure or function identifier, then the pointer 
value is the procedure or function's entry point. The type of the value is equivalent to the 
anonymous pointer type of the pointer constant nii i.e. it can be assigned to any pointer 
variable. - -^ ^ 

Table 15-7 ■ " k^^.-^^^'^.v . - ; 

Pointer Operations 



Operator Operation Operand Type Result Type 



,- f\:: ■■'■ 



W . pointer formation variable, parameter, procedure, . pointer 

vtif?9 -X?! ciTo^^f*i<5 i-.ii<3 mw 3iu^5°^ function ; ^^ --ruiM.-j-iq ^ c>j ^v.:;:rfir-: ^i ■r-\'..-:.-"\i^ ; ■: ' 
■ i") '♦ai.e %[n<i !jv(T .t^-*: - ■; >. r. ■■■.;. '^ais*; •?ui I.-s-j;^'! c^- 'rF<iV.-:r---rt ".. >.: - ■ ^ 

ihe @ operator is a unary operator talcing a single variable, parameter, procedure, or function 
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as its operand and computing the value of its pointer. The type of the value is equivalent to the 
type of NIL and consequently can be assigned to any pointer variable. The pointer type is 
discussed in Chapter 13. 

@ with a Variable ^.^ ^^^^ 4'»^ r»<i«»i« ^ ,>» ^.^j^s^ts^ra t^?vs' .it x^v /^i^ .t - > - - • 

Using the @ operator with ordinary variables (not parameters) is straightforward. For 
example, given the declarations ^ jg e*f-^i- ^£ •' *'.' ^.if^ii'^fiat ^ • >v- ;* x, •• . ■<■ ■ -•- - 

type twochar = packed array [0..1] of Char; "'' !^* '■''**' ,'"v*'V- ■-"''■-' ' 
var int : Integer; --.!■?.* =--?"• ^^.- ^. .-*---(- :■ !' ■*• - • - - - ■ ■- ^ 

twocharptr: -twochar; -^> ^i^i^i^^^^-r *'=' ^>0--'^ '^^ * -^^'^ ^^"^ "■'' - .; \ ' ' 

the statement 

twocharptr := @int 

causes twocharptr to point to the variable int. Since the types Integer and twochar have the 
same storage requirements, the value of int, when accessed via twocharptr, is reinterpreted 
as type twochar. 

@ with a Value Parameter 

When @ is applied to a formal value parameter, the result is a pointer to the stack location 
containing the actual value. Let aParam be a formal variable parameter in a procedure, 
actParambe the variable passed to the procedure as aParara's actual parameter, and aPtr is a 
pointer variable. If the procedure then executes the statement 

aPtr := eaParam VMO'^-r^viO *"^ - 

then aPtr is a pointer to actParam on the stack and aPtr'^ denotes the value of actParam. 

@ with a Variable Parameter ^ s^jsis^^^t e^fjf.i-rsT^ «j^^« s ^-(^^.lij ^wf.-^-..-, - 

When @ is applied to a formal variable parameter, the result is a pointer to the actual 
parameter. In this case, the pointer is simply taken from the stack. Let aParam be a formal 
variable parameter in a procedure, actParam be the variable passed to the procedure as 
aParam' s actual parameter, and aPtr is a pointer variable. If the procedure then executes the 
statement 

aPtr := @ aParam 

then aPtr is a pointer to actParamand aPtr^ denotes the contents of actParam. — ■ ■ 

@ With a Procedure or Function 

When the @ operator is applied to a procedure or function, the result will be a pointer to its entry 
point. There is no mechanism in Pascal for using such a pointer. The only use for a procedure 
pointer is to pass it to an Apple IIGS Toolbox procedure which the Toolbox will use to call the 
designated function with an assembly language JSL instruction. Procedure pointers are 
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commonly used with the Toolbox to imp\ement filter procedures and definition procedures. 

<• Note; The @ operator should only be used in conjunction with procedures and functions 
declared in the declaration part of the program or unit (global declarations) when the 
resulting pointer value is passed to a Apple IIGS Toolbox routine. Procedures and 
functions declared in the declaration part of another procedure or function (nested 
declarations) have a different calling convention than those in the declaration part of the 
program which is not compatible with the Apple IIGS Toolbox routines. 



Function Call 

A function call specifies the activation of the block associated with the function identifier. The 
result returned by the function activation is subsequently used as an expression value. If the 
function has any formal parameters, then the function designator must contain a 
corresponding list of actual parameters. Each actual parameter is substituted for the 
corresponding formal parameter. 



function-call 

► 



*-;... ^ > .. 



function-identifier 



actual-parameter-list 



aclual-parameter-list 



actual-parameter 



■Hi 




actuai-parametcr 



O 



expression 



m^ 



variable-reference 



J 



*<D-t 



Sfe'-*"..^ ■'-^■O*'/)' '•■..■ 



^Ms?.Tr.j..':i 



1 



W" 



Kxamples of functions calls: 

:it«({^'S^"tx+y) ,^^^ J't^i- ^Sm.*- ^-Ift Jj^-@5 ijfe^ttft^i .^|r|S*ftU ^ *^*:> '^^-.v* ^;.^iAv ■ 

■ oj^cKf") ^r{j ii^-o -xft-eyue 57S-«r'^Mefs syv-&4 4^i vjwei 4^ii-i .5Q¥5 &;<i^v « .-.i ■S'-<X 
See Chapter 17 for a description of the procedure call statement. ;tO.-i 



T';^ 



Set Constructors i.^-'-^. ■ 

A sei constructor denotes a value of a set type, and is formed by writing expressions within 
[brackets]. Each expression denotes a value of the set. 
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■53 set-constructor 



<D 






'^Hr { 



member-group 



O 



■Q> 



,(■- i" 






member-group 



A tuni^^^/V «;nyi fiJrttff/. -.rfl (ii.-A- -SiMfiriSlfBxV.- iO'fi gf (Tjid '/ 



>■ expression 



^^fti^^^ki^iJSl-^E^S^'SifeiSEfi^'^SIIBSi^'i'^aKi^^ 



expression 



JZ..„ ^ 



The notation [ ] denotes the empty set, which is assignment compatible to every set type. Any 
member group x..y denotes as set members all values in the range x..y. If the value of x is 
greater than the value of y, then x..y denotes no members and [x..yj denotes the empty set. 

All expression values in the member groups of a particular set constructor must be of compatible 
ordinal types. If a is the smallest ordinal value in the resulting set, and if 6 is the largest 
ordinal value in the resulting set, then the base type of the resulting set is a..b. 



Examples of set constructors: 

■ ^ ^ 

[red, c, green] 
[1, 5, 10. .k mod 
['A' , . 'Z', 'a' . . 'z' 



■%JV^.«' 



12, 23] 
, chr<13)3 






■^ Tiix^-ifsx^i: tf V<iiiir- 



Value Type Casts 

The type of an expression can be changed to another type through a value type C(XSt.^ 




value-type-cast 
^ . , 

The expression argument must be of an ordinal type or pointer type. The result of the type cast 
is of the specified type, and its ordinal value is obtained by converting the expression. The 
syntax of a value type cast is almost identical to that of a variable type cast. However, value 
type casts operate on values, not variables, and can therefore not participate in variable 
references. That is, a value type cast may not have qualifiers appear on the left side of an 
assignment statement, or as an actual parameter where the formal parameter is declared as a 
VAR parameter. ._...-.-—,— ...., -.„_,. i 



Examples of value type casts: 






Integer ( ' c ' ) 
Ptr{$89F2) ■ . 

Boolean(O) 

.hf^ lit* Ic- j;)it;v r, k'.;irtn*jb ■- 



■ii-' ■*■/:• 
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--% 



.\v.jr;fr^'".;^*i •% ^^j b^fftij,l->'i mi 5- ^.i tit/.^v -v 



hoptar 16 



i*^'jv..*;i>i.. 






rt 






Statements 



Statements describe algorithmic actions that can be executed. There are two classes nf 

ab iTnd -^'^r^'Yl^'^"^^-'' ^"' ^^^"^^"^^^ statements. Statements m^; be prefixed by a 
label and a labeled statement can be referenced by goto statements, m:* sr.i ./,^;^f^ ^'^^"'^^^ *^>' ^ 






statement ^ _^^ .,„, ^^ .^^^j 



label 



f^^ 



-»] simple-statement L 



stnjctured-statement 



zr 









'OG(« 



-»: ,i». 









digit-sequence 






b.V ": Hl-' 



Simple statements 



Js'Wss a XK ft^!^fcl!f*^ 



fjt^'lnt''^'^'"^"', is a Statement that does not contain any other statements. The empty 
statement is a simple statement which contains no symbols and denotes no action. ^ 



simple-Statement 



' assignment-statement L 



procedure-statement I 



ki % 



V. 



goto-siatement 



^ 



»!ii Ts^s -w ^'>^&d bii^i/ljrvi ^ M empty-statement 

empty-statement 



^^-^ 






a <*fc;3.& ^ ■ 



Assignment Statement fS"^ 

The assignment statement can be used to perform either of two actions: ^^''"''"'' 

• To replace the current value of a variable by a new value as specified by an 
expression. -^ 
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^^ • To specify an expression whose value is to be returned by a function. 
assignmen {-statement 



variable-reference 



f unc tion-identifier 



^C^ ► expression 



The symbol := can be read as "set to." The expression must be assignment compatible with the 
type of the variable or the result type of the function. The function identifier must be the 
function identifier of the enclosing function block. --»^»si ^.' - *.-- -^< -.•.-.-^-■.. 

The variable reference on the left side identifies a variable of any type except a file type. With 
most variables, the variable reference is simply an identifying name, but four special cases 
exist in which the variable is followed by a qualification: ^ ^ ^ ■ 

• string element the variable name is followed by the element's index number enclosed 
narie-TM^^b f^fil ''^ brackets. ^^.^^ ^^^ p««...»...w^.. -^..-^ ;; - ;^^-; .., . . _, . , , 

• array element the variable is identified by the array name followed by an index value, 

enclosed in square brackets, for each dimension of the array. 

• record field the variable name must be preceded by the name of its containing 

record and a period. The exception to this rule is if the statement is 
within the scope of a WITH statement for the associated record. 

yssES^^^^^'SSs^:'^^?-''^ "■■^■" ■" --■-■•"-■"" 

• dynamic variable the variable reference is identified by the name of its pointer 

followed by a caret. 

In addition, a variable reference on the left side may be type cast. Refer to Chapter 13 for more 
information on type compatibility and syntax for variable references and type casts. 

Examples of assignment statements: ^ _ ^^^_ '•j!^o^'^^.*t-'i^'^-'-''- 



X 

P 
i 
huel 



y+z 

{l<=i) and (KlOO) ; 4^^i^m f^-^ 
sqr (k) - (i * ^); .ZZlZ^lZi^ J 

[blue, succ (c) ] -I -.mi^mX^^Jl^ h«— — >1 



♦ Note: It is not specified whether the variable-reference is evaluated before or after the 
evaluation of the expression. However, once the variable-reference is established, it is 
not altered by side-effects of the remaining execution of the assignment-statement. Thus, 
the outcome of 

A[i] := Some_function (i) ; 

depends on whether Some_function modifies i and, if so, whether Some_function is 
evaluated before or after A[i]. A program is erroneous if it relies upon a particular 
order of evaluation. 
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Procedure Statement 



A procedure statement specifies the activation of the procedure block denoted by the procedure 
identitier. If the procedure has any formal parameters, then the procedure statement must 
contain a matching list of actual parameters. Each actual parameter is substituted for the 
corresponding formal parameter as part of the procedure call 



procedwestatement 



\ 



> 



procedure- identifier 



u 



juajPT M tt*i iiijai'i' ^ ' 1 ■ iiii— » i. ■ * ■ '' I t ^^ tnt^iittf 



actual-parameter-list 



The identifier used to activate a procedure must be identical to the identifier used in the 
procedure or function declaration. The parameters in the procedure or function declaration are 
ca led tormal parameters', those in the calling statement are called actual parameters The 
va ues of the actual parameter list are said to be passed to the formal parameters as part of the 
can. Ihe number of parameters in the formal parameter list must be equivalent and 
compatible with the parameters in the actual parameter list. Three exceptions exist for actual 
and tormal parameter compatibility: 

• Subrange types are equivalent to their base Types. J 

• A formal parameter of type Longint will accept an actual parameter of type Integer. 

• Formal parameters preceded by univ accept any actual parameter that occupies the same 
space in memory. See Chapter 19 for a complete discussion on univ. 

The actual parameters specified in any procedure or function call must also follow the 
ToIIowing rules; 

• Actual variable parameters, as opposed to value parameters, must be variables Actual 
variable parameters cannot be constants, expressions, or elements of packed variables. 

• The value of any actual string variable may be passed to any formal variable string 
parameter, regardless of length. 

• If the value of an actual parameter exceeds the range of a formal parameter, an execution 
error will result. 



■«na«i»'<uii»-:i;">ii»»til|i-«.li I'.i » .-■> »ttMW«» i <' . Hi n' 'F'ij' .ii i L MI» ■ ■■ ■ f .^^Wil uW r i ■ r ij— iw4— *(.. «•-! 



Examples of procedure statements* 

PrintHeading; 

Transpose (a,n,m) - «**'''**>J»J^ i^tiW^M'^BOls Sii i« :g5»« ^* =- -i' 

Find (name, address) 



Structured Statements 



mSfti, 



Structured statements are made up of other statements that are to be executed either 
conditionally (conditional statements), repeatedly (repetitive statements), or in sequence 
(compound statement or with statement). 



Language Reference 1(S^3 i^-y. 



Statements 



slruclured-slatemcnl 






-T~ 



trv-!^ ^iO;:^ 



-> t 





^ 


, 










. •.'•■■'* "1 
i 




^ 

< 




com pound -slatem em 


^ 
















-> 


conditional-statement 






^ 


'■ 










:| . 




repetitive-statement 










^ 














V 




with-statement 


V 





















vw^fc* , ■■^ "^' m 



Compound Statements 



,,< .... ...■ I....- 



The compound statement specifies the execution of a sequence of statements in the order in 
which they are written. The compound statement is treated as one statement in contexts where 
only a statement is allowed. , * t. - -. ^ -,...„ -a-..«r 

-►f end * 



U:!i.tT^Ji t<« j; 



compound-statement 



> (^ begin ^ 



statement 



<i> 



J 



The body of every Pascal procedure, function, and main program consists of a single compound 
statement. To create a single compound statement out of a sequence of individual statements, 
preface the sequence with BEGIN and terminate it with END, separating the internal statements 
with semicolons. Compound statements may be nested within other compound statements. In 
this case, each end associated with a compound statement is paired with the nearest preceding 

BEGIN. 

Example of a compound statement: --^ ^^^ «* i*fe^^ S* .rji^-^-^-^--^ ^..-i.?. ;-..=■ . i:.:^ - ' 



begin 






:= z 



end 






Conditional Statements 



A conditional statement selects one or none of its component statements for execution. 



conditional-statement 



■^^■■:^rS^^3Si^=3Smsst.-- 



if-statement 



case-statement 






...., . -.-rOTr. I;!? 



>.-;ii<.p:,'v> n; 10 <?'.rf^'*^<i:^^i^s <!Vf*;i5'?^-!; X--a^'»9M*>'^ ,^5:'- .;;i^jr. «^ ...^.--.-.t:,. 
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v^ 



If statements 



I r- 



LfnL' above) /rrooletn^efn ™".'™".«'»/'-t<^--t (which xnay be a compound staten,ent as 
executes another stetementTf the bT" " " ^ "''t,""' "'^"^ "'''''' "^^^ '^'^ ^'^'^''^ *-' 
the else clause „,:farbL^tprnd:tat3nr°" " '^'"- ^'"^ ^''^'™^"' ''''"''"'' "^''^ 



if-statement 
IT 



rrf.cWi>-'»if^rfw-t^uu 



expression "] — ►(^then }-»] statement 




J 



else 



statement 






Examples of if statements: 



if X < 1.5 then 
z ; = x+y 



:v*-?t 



V * K 



-1 -i 



else 



:= 1.5 



if pi <> nil then 

pi := pi'*, father; 






Case Statements 



■ i«»iwii i «ii>* i i W ii L.; i| -*t • »»■ 1 ■ . ■» ( nf -I > ■ i fc iig- 



-■Mnwnf 1 MM«»** W te*ii;».iWi' 






f^-B',;-,tt .IS'.-S- !;ii^_^-' 



case-Statement 



5ny.c*t&;iiU's si*B;^nt^ 




:'i 



ir*^ K* alSr-v. ';r; tt :*■//■ 't.. 



t, ■■ »M^»«* ■ W^*- 
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case 



^fidi h:%hbii. fed 



constant 
expresslion 



O^ 



■Ol 



statement 



-O 



constant 
exprcsstion 



■*^D — ►( otherwise 



:t;i9 :.;;">. '-^^ i-' i- '- ^•■'" ' 



statement 



^^i-.■.^^Xl-:.-''•■ 
^ 



Tt 

The case statement executes the statement prefixed with the case constant that equals the value 
of the selector. If no such case constant exists and an otherwise clause is present, the 
statement following the word otherwise is executed; if no otherwise clause is present then 
execution continues with the statement following the case statement. 

Any of the controlled statements in the case clause or the default statement following otherwise 

may be either single statements or compound statements as defined above. 

Examples of case statements: -■'"-;;./' ... - 

case operator of 



plus : X 

minus : x 

times : x 
end; 



= x+y; 
= x-y; 
= x*y 



.pJSXStiVr 


-.■;.-:ji:; 


13.1.? * 




v-fir 


rf ' 



case i of 

1 : X := sin (x) ; 

2 : X ;= cos (x) ; 
3,4,5 : X := exp(x); 
otherwise x := In (x) 

end 






tl 



Repetitive Statements . . ^.:^--. «*;■?« **«.«.-vs:. r.iar -:;.-' 

Repetitive statements specify a group of statements to be executed repeatedly, j_ ^^.; - 
repetitive-staiemen t 






repeat-statement 



while-statement 



for-statement 



If the number of repetitions is known beforehand, the for statement is an appropriate statement 
to use, otherwise the while or repeat statements are used. 



Repeat Statements 

A repeat statement contains an expression that controls the repeated execution of a sequence of 
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statements contained within the repeat statement. 
repeat-statemenl 



\i \ » ^ repeat ^ -p^ statement I y^ until 



X*i t^IfcuSS iSi t^ ,Jt.not;?v^A-.' S f ; J 



expression 



The expression must yield a result of the standard type Boolean. The statements between the 
symbols repeat and until are repeatedly executed in sequence until, at the end of a sequence 
the expression yields the value true. The sequence of statements is executed at least once' 
because the expression is evaluated after the execution of each sequence. 

Repeat and until create their own compound statement out of the statements they control- there 
is no need to use begin and end as required for other compound statements. 

Examples of repeat statements: .Miiansy IsTJ^wJ '»^;^ i>^i;r'0 I'-i.'^Ijs''' tk t: ^^ = -, .:= 

repeat ■^««^-Ui^i, • ;. 

k := i mod j ;p<y:.;^3OTq:^~V^^^*<%*-4 ^ 

:= k V 



V. 



until j - ,;^;jf£i^ — C©*^ J!^r^"' "^ 1*^ Qa^")^—^—' 

repeat ^/^fS^fi"^y -iTW- --■' 

process (f '") ; " *^ 

Read(f) 

^ until eof(f) ««»« .^4f .5; .>5#SB^^^if »: Wi -^is^fjjitia f.is^i's-s - --.-^ , -' 



While Statements 

A while statement contains an expression that controls the repeated execution of a statement. . 

. ,. while-statemeni ,.r- 

►T while 1 ^ P.xnrp.ccian I ^J' Ar,^ tSlZ^^Z^^t I w -■- i> 



The expression must yield a result of the standard type Boolean, The expression is evaluated 
before each pass of the contained statement is executed. The contained statement is repeatedly 
executed as long as the expression yields the value true. If the expression yields false at the 
beginning, the statement is not executed. 

The statement controlled by the while statement may be either a single statement or a 
compound statement as defined earlier in this chapter. 

Examples of while statements: ^^j ^^^^^^ ^^^^ ^^^,^, -^ ,^^ -^^^^^^^ ^,^,,,,., ,., .,^,. ,. ■ 
,^ while a[i] <> X do^,,^ hl>f^-»h'^ms fO &^^ 9^m-siut n t-x 'iUl^i.h^ ?:nji;o~. ■> -, r- 

while i > do begin it:*-.- ..;. 



fti^lv/'ii. 



if odd[i] then ^__^ _^ -i*tf*i§ c-j 'i*^J>«b;^; ^d hv.'- v^f^i ?i'A^^y^^.. {^-^S:- - 



z := z * x; 



-'.a'j. -, 
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;= i div 2, 
:= X * X 



Urc-.^^Ji>JS . -^O/:' 



«li4 






un 



♦ Note: Care must be taken with both while and repeat statements to ensure some 
practical means to change the value of the Boolean control expression, or to escape by 
means of a goto or Leave statement or Exit call. Otherwise, the program will never 
exit the loop and therefore never terminate. Leave and Exit are defined later in this 

, chapter. ' ■ . . ^ . - 



For Statements 



-trr««i<.,je>i* -wfi"^rtlca jfM.-T^-i.JEil« httu-:^ii;-.r- ^ivo [H'lj'i iiis-'^ir: . I m"., :, -■■ ,; 



The for statement causes a statement to be repeatedly executed while a progression of values is 
assigned to a variable called the control variable. aj.'.ctv .■-:;? . ,■ ; 



for-statement 



>i>V^ ^ 




The first expression following the := is called the initial-value. The second expression after the 
:= is called the final-value. The control variable, initial-value, and final-value must all be 
compatible. See Chapter 13 for information on type compatibility. ., ^ . - - 

The control variable is a scalar type (e.g. Integer, Char, Boolean, subrange, or user- 
defined). Therefore, it cannot be an array or string element, a record field, or a dynamic 
variable. The control variable must be declared in the block that contains the for statement. It 
is assigned a new value by the for statement prior to each pass through the statement it 
controls. The value of the control variable is accessible in the statement controlled by the for 
statement. 



If the token after the first expression is the keyword to, the control variable is to be incremented 
prior to each pass through the statement. Execution of the for statement continues until the 
control variable obtains a greater value than the final-value. If the token after the first 
expression is the keyword downto, the control variable is decremented prior to each pass 
through the for statement. Execution of the for statement continues until the control variable 
obtains a lesser value than the final-value. 

Below are several rules to follow when writing for statements: '"* '*^''- ■ ^ '■' ' 



• The control variable must be a simple variable declared in the local scope. '' 

• If the control variable is a subrange type or user-defined scalar, it must be capable of 
accepting all values from the initial-value to ^q final-value, inclusively. 

• The control variable must not be modified within the statement controlled by the for 
statement. 

• The control variable may not be included in either the initial-value or final-value 
expressions. 
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'. : • '^^^'''"^^"^^^"^ble may be unspecified upon termination of the for statement. '1 

^V-^' * n«.V"r^^"''^^''^.u ""^ final-value expressions are evaluated just once, prior to the first 

" " behavior oTthTI '""^ rt' '?''''' expressions within the for statement will not alter the 

^^ oenavior ot the for statement.>e 3ri3y:v= m%^ re a?.^/ ..-jxp^-j-rr^.c »fc; ••• /?.•.--•: -^ 

• If the initial-value and final-value are equal, the for statement will execute exactly once. 
Examples of for statements: 

for i := 2 to 63 do i-^iOYO i^-=^M ■-. ■ -■ H t f^ '- 

if a[i] > max then -. ' U • .. ,r 

max :=a[i] — ■.- 

for c := red to blue do Check (C); 



Control Statements . . 

JunctZ^^'lfu" ''^'"="lt"'^ "nditional statements, assignment statements, and procedure and 
however tha T 7 T- '" ''!"'"'' '"'"''^' "" programming jobs. Situations may arise. 
cZTci^^lT^JrT ■T^'X^f'.'"^'''^" " suspension of program execution. For such 
cases, (complete Pascal provides the following tools: 

' stmfbTock^'""'"' '" ''^'^'' ™"'™' '^'™'"^ ^ ^y -*" P™eram statement within the 



*.*-=-f.. 



y,,^^' • the Cycle statement to force an immediate reiteration of a repetitive statement. 

• the Leave statement to cancel the enclosing repetitive statemenUr*^ *>-=<.w «^r a -■ 
the Halt statement to immediately stop program execution. 



Goto Statement 

Tp^eXd labef ""'"^ transfers program control to the statement immediately following the 

gotO'Statement 

■ ► (goto } ►! label 



The following rules must be observed when using a goto statement: 

* L^lutn 'tl'T't^j; ^ ^^''^ statement must be in the same block as the goto statement, 
or withm a block which encloses the block containing the goto statement. 

* unrf!nL'"ff ^ ^^'"'f^'^.f statement from outside that structured statement can have 
undefined effects and is illegal. However. Complete Pascal does not detect the occurrence 
ot such a goto statement. 

See Chapter 13 for more information on labels...,,^,^ ,.,,,, ,;j,^ ^^ ..^,. ..,, ,,,.,-, ... \ ; , . ... 
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Cycle Statement 

The Cycle statement passes program control to the end of the statement controlled by the 
enclosing while, repeat, or for statement. Use of the Cycle statement outside of a while, repeat, 
or for statement will result in an error. 

rstU ^Uwj-'if «5a Sii.^wv-j^wr; fer.?. s -■^'- -1 ■ - ■■■' 
Example of the cycle statement; 

for i:=l to 100 do begin 

if a[i] <= then cycle; '-'^> ^-' -— '^ ''' ^ ' 

f (a[i] ) ; • ni'-^ ■.A^= ' ' ■' ' ^ '■■ ■ 

end; \ ■■ ' " '-^^ ■ 

♦ Note: The word cycle is not a reserved word. If cycle is redefined, cycle statements 
may not be used within the scope of that definition. 

Leave Statement 

The Leave statement terminates the enclosing while, repeat, or for statement and passes control 
to the statement immediately following the enclosing repetition statement. Use of the Leave 
statement outside of a while, repeat, or for statement will result in an error. Ij . ■ ., - , 

Example of the leave statement: „ . , , ,, , ■ ■ - 

while i < 63 do begin 

if a[i] = X then leave; ,;,.-„ -. * ■'•■ 

i:=i + 1; ^^s^^aq^y- irs9 ^^oki^r^^^-^^i^^^^^^ ''^ ^''■^' '"^ ' ' 

end; 

♦ Note: The word leave is not a reserved word. If leave is redefined, leave statements 
may not be used within the scope of that definition. ..,.,. 



Wifh statement -'- ,.---..-.---------------•- 

The with statement is a shorthand method for specifying the fields of a record. Within a with 
statement, the fields of one or more record variables can be referenced using only their field 
identifiers. The syntax of a with statement is as follows: 



with 



-»( with)- 



record 

variable 

access 



-Kd^ 



stalemeni 



i.- I5<rOW iS^-tr-.j"'.:-' 



J..r.n.^^. cm ^ -^^ ^^^ ^^ . '^?r1:t^S^- > t!^!^ -"^M^ ^ ' ■ ' ^ 

The occurrence of a variable in the with statement must denote a record variable. Within a 
with statement, each variable reference is first checked to see if it can be interpreted as a field 
of the record variable. If so, it is always interpreted as such, even if a variable with the same 
name is accessible. 

The following rules govern the use of with statements: *' 
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' When listing a record that is a field of another record, list the containing record earlier 
m the hst or list that field in explicit form. 

• With statements may be nested. When with statements are nested, the enclosing with 
statements remain valid within the nested with statements. 

• When several records have fields of the same name, with accesses the field of that record 
name last in the list of the with statement. 

• Where a record field identifier is the same as a variable or other identifier declared 
outside the record, with accesses the field. 

Examples of a with statement: 

with date do 

if month = 12 then begin 

month ;= 1; 

year := year + 1 

end 
else month := month + 1 

This is equivalent to: 

if date. month = 12 then begin 

date. month := 1; 

date.year := date-year + 1 

end 
else date. month := date. month + 1 

When more than one record variable reference appears in a with statement as follows: 

with var-,^, ^arj, ... var^ do 
statement 

it is considered equivalent to the following sequence of nested with statements: 

with var^ do 

with varo do , ■ 

with var^ do 
statement 

Thus, if varj^ in the above statements is a field of both var, and varo, it is interpreted to mean 
var2.varj^ and not varj-var^^. 



Null Statements ■ 



Null statements are statements that do not contain anything. Unnecessary semicolons are 
interpreted by the Pascal compiler as null statements. The result of unnecessary semicolons is 
two statements where only one was intended. Most of the time, this is harmless but it 
occasionally causes an error when only one statement is allowed. 
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:?wt?ns»l jy* *n?^^aie>« ?&??5' « ir; rt^*;^ 9MTR-ie1*^ aiuariris' h^^'^ri ^■"•- -■■ 

*>b It ;»-'»' - - '■"'£■ , (" ■■'''■ 

;ffJft**»t».f3Kte ftJrv &sJ.^-".s-><» sW5ifl«p6S ?3!vrt>tK:n 9cU c-> irt^J-^-.-^^.T'T 



'^rs-A^ i^j5 h*/--irHnii*M v. H -gi*'^ l*'i,?i|"f? 



iv rf^^olo ifk^^ 3 i" ..fj^l.-*'-'* V>>^t;' : '-I ':■ 



•i^^'-l '" ■■ '- 
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Procedures and Functions 



,tio:-ti:'i-:5*'^'*;. ■^■.li. . •; ;• v 



^/o<:edures and /kfic/io/is allow you to nest additional blocVs in the main program block or 
define blocks within a unit. Procedures and functions are also known together as 
subprograms. Each procedure or function has a heading followed by a block or a special 
directive. A procedure is activated by a procedure statement, and a function is activated by the 
evaluation of an expression that contains a function call. 

Ihis chapter describes the different types of procedures and functions and their parameters. 



IBTJieifiTi ■*-<! cL ■f3i-'-l3 u 



Procedure Declarations 



A ,rtOtfST£f'>;->h a^iX^a^ TO #-J«ihfi3«1i^ :> :■■'} l.--=';M ^ ^ i-S ;f.: : 



A procedure declaration associates an identifier wi«? a block as a procedure so that it can be 
activated by a procedure statement. 



l^j^K'^" P''0<^^<^£'^claraiion 



procedtire-heading [->("^)_»| procedure-body 



^^ J procedure-body 



^ — »^ forward^ 



-^- 



c 



« block 



— ► ^xtem al ^ 
' ►^ inline 



.iJ~^<^n no-' :■"-:- 



Ai£:?!>(5J££:J,!, Jlt>!jbStl.>W*»i". • ■- ■ 



c»tM^ ff a>s 




unsigned-intege|. 



O 



J 



■; J,«vi*J^ 1" '1* 



Ti^Jlyi u«. :^ 



i^P) — ► [ unsigned-intege^ — Q 1 unsigned-integei 



The procedure heading specifies the identifier for the procedure, and the formal parameters if 
any, ' 



.a 



procedure-heading '^ — ' ''^^[^J" • 

procedure ) ' » ] identifier") ^ W - J 



^JVts;3-^^;1iJ! td -(lis:^!!^ /^b ^ 



^ 



formal-parameter 



Si/ 



"-:£■!■ !:;> I-^ JV; 



The syntax for a formal parameter list appears later in this chapter. 
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■i^^rfBlMP^' 
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A procedure is activated by a procedure statement, which gives the procedure's identifier and 
any actual parameters required by the procedure. The statements to be executed upon activation 
of the procedure are specified by the statement part of the procedure's block. If the procedure's 
identifier is used in a procedure statement within the procedure's block, the procedure is 
executed recursively. That is, it calls itself while it is executing. 

Example of a procedure declaration: 



■iK;);'jj' .-\ '-ii i^ '■ ■■ 



procedure Num2String (N: Integer; var S : string) ; 
?; var V: Integer^ -"-■- "• ~—^"-« —*--■-■■' - -- - . . .■ • 

^,. begin ' . '^ts SffcU^PW-^ hr-,' ^o-Ti^h^t^crH .^>v:^ «; ^"^^''L '^ ' - - 

IfiT?**' V : = 
oWix S : = 

repeat 

S := ConcatCChr (V mod 10 + Ord (■0')),S); 

.Bi^$^ V := V div 10; ^-i?;^- ;>.--« -^ - n -- 

until V = 0; 

if V < then S := Concat ( ' - ' , S) ; 






.U'.-TtU» -'.-V -;-?-^ ■! ..;tj'*- *■:';■•-,■-■ 



-,:^.s^£^«fe^s^f^i^ =^^:^F^?^^'^^^-'^' -^ 



Instead of the block in a procedure or function declaration, a FORWARD, EXTERNAL, INLINE or 
TOOL directive may be given in its place. See the "Procedure and Function Directives" section 
in this chapter for more details concerning directives. 



J ^^i?:;Ar.i<. .st»'i;>'"' 



Function Declarations 



.^i^-->:i 



A function declaration associates an identifier with a block as a function so that it can be 
activated by a function call to compute and return a value of some type. i 



fimction-declaralion 

function-heading -^/"TV-^ function-body 



I, 

function-body 



«^ ?B5^-6-.:^-e?9i7^>^w ^'^'^^\'";''^'_^ji 






-»> (lbrward y 
■^ — ►^external ^ 



block 



^ inline) ^ unsigned-intege^ 



^ 



O- 



J 



(tool ) — ► unsigned-integer — (7) unsigned-integei 



■^ t»i-'> ■■"■ 
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The function heading specifies the identifier for the function, the formal parameters, if any, 
and the type of the function result. The function result type may be any simple or structured 
type. 
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Procedufes and Functions 



\^ 



function-heading • t . , . ^ 



function) _ ►] identifier 



k . »(1)— » j~t7pe-identiri4 ;^-»>'-^'^^'' ' -'* 






A function is activated by the evaluation of a function call, which gives the function's identifier 
and any actual parameters required by the function. The function call appears as an operand 
in an expression. The expression is evaluated by executing the function and, in effect, 
replacing the function call with the value returned by the function. — : .™ 



The statements to be executed upon activation of the function are specified by the statement part 
of the function's block. The block should normally contain at least one assignment statement 
that assigns a value to the function identifier. The result of the function is the last value 
assigned. If no such assignment statement exists, or if it exists but is not executed, the value 
returned by the function is undefined. . . ^ .„,„... 

If the function's identifier is used in a function call within the function's block, the function is 
executed recursively. , . ^ . , , 

Example of a function declaration- '^^ ^^-^- "^^"^ ««*^ ^^^^ .'^Ti.&»:>D-t^ ^^df 'U.-; .-.^r, Ur-^ . 

., '1 - function Num2String (N: Integer): string; t^ t. -i. r • t 

var V: Integer; , , ._, 

.^"^ s- St ■ - ' _^^«^ e? ft^xjf-iiss^w >^;T .> .^ ■■ ■ . 

V := Abs (N) ; • -- » * s ^ - . 

repeat 

S := Concat (Chr (V mod 10 + Ord ('0')),S); 
V := V div 10; 
^„til V = 0; '*^**'^ ^^^^^ '^'-"^ .^xr^^-^^--. 

if V < then S := Concat (■-', S) ; 

Nuin2String:=S; ^ . 

end; .'-=-' - ■■.. 

A function can be declared FORWARD, EXTERNAL, inline or TOOL in same manner as a 
procedure as described above. 

♦ Note: If the return value of the function is a record type or a pointer to a record type, it 
cannot be used in the list of a with statement to assign values to the fields of the record. 
The compiler will interpret use of the function's identifier in the with statement as a 
function call. 



2£5¥T 



;t- ^^.; 



Procedure and Function Directives -^'^^ic ? • < ^?^f »-<-> n- hauir:;*-: 

The block part of a procedure or function may be replaced with one of three directives: ' 

• FORWARD allows the procedure or function to be declared immediately while allowing the 
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procedure or function block to be defined at a later time. -^ ^ 

• EXTERNAL allows procedures and functions to be written in another language and linked 
to the Pascal program. 

• INLINE allows machine language instructions to replace the block of a procedure or 
function. 

iti-^ TOOL designates a procedure or function as an Apple IIGS Toolbox routine. ■■■•■■•'■ 

Forward Directives ^^^^^^ ^^ fto.cj:»uf5 fe^l<» xift«>a/ija^ n^qu i-f^iss^'*^^ skJ .■' w^^&in^. •• ■=. 

A procedure declaration that has the directive FORWARD instead of a block is called a forward 
declaration. Somewhere after the forward declaration, the procedure is actually defined by a 
defining declaration - a procedure declaration that uses the same procedure identifier and 
includes a block. The defining declaration may repeat the formal parameter list, but if the 
formal parameter list is repeated it must be identical to the forward declaration. The forward 
declaration and the defining declaration must be in the same declaration part, but need not be 
contiguous. That is, other procedures, functions, types, variables, etc. can be declared between 
them and can call the procedure that has been declared forward. Forward declarations allow 
mutual recursion. 

The forward declaration and the defining declaration constitute a complete declaration of the 
procedure. The procedure is considered to be declared at the place of the forward declaration. 
Forward procedures and functions may not be written in the interface part of a unit. 

Example of a forward declaration: ' . i , ^ , . 

5fcs'v -■ 
procedure Proc2 (m,n: integer) ; forward; . „, ,, .. 

procedure Procl (x,y: real) ; . ., _ „ ; . ,, 

Proc2 (4,5) ; ... 

end; 

» PS ^ r. -:. / • *- \ Mmrx^ ,<t#i*wr?i>*> h^^4f^ 9. i:.^:^ r- ^- 

© riA procedure Proc2 (m,n: integer); \ ._.7- ■„■{■• "*' . x 

begin 
:i.S<?VJt Procl (8 3,2.4); ' i!^^ J^WM ft *€ ^35^^ !^H:^ 'fe *^(;t* f^ '•' -'"'"' 

External Directives 

A procedure declaration, whose body is declared EXTERNAL, defines the Pascal interface to 
routines assembled or compiled in a language other than Complete Pascal. The external code 
for the procedure must be available at link time. 

Examples of an external declaration: , -,4 v,-..^^ rti'^ijrSi Tr; »■;.;■■ ..-':.■■[ ■-• -'■ ■■ " 

:._j,. ^ procedure GotoXY(x,y: Integer); External; v%itU--f-.y'.{; =ir.2 ?v' •■'■: ■■ ■ -^ 
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In this example. GotoXY is an external procedure that must be linlced to the host program prior 
to execution. ^ ^ 

It is the responsibility of the programmer to ensure the e^xteT^al "procedures and functions are 
compatible with their companion declarations in the Pascal program. The linker does not 
check for compatibility. ■• ■ 



Inline Directives 

The INLINE directive allows you to write machine code in place of a procedure's block The 
code may only consist of a sequence of integer constants which each represent a single byte of 
65816 ^f\^"%^^de When the procedure is called, the compiler generates the machine code 
specified by the INLINE directive. If the procedure has any parameters, they are pushed onto the 
stack before the code is generated. 

The inline directive is intended for writing small routines. For example, the following 
procedure would clear the 65816 Interrupt Disable flag by generating the CLI instruction. 



■*r'I?( 



Example of an inline declaration: 
■Stab procedure GenCLI; inline $58;f ^Ais^^-I: ^sJfe.vS-tft^Ti':^ ivrf;; rtTOTt .r.-^;;> ; li /.*"• 



Tool Directives 



iq n i» ■raa3CEi«"Ts«| ^ssrjasi §crKG*AJ^i::j*',r* w>3 ^ i-^^^^mti--: 



The TOOL directive is used to define the body of a procedure to be one of the Apple IIGS Toolbox 
routines. The Apple IIGS Toolbox is divided into several toolsets and then into individual tool 
routines. Each toolset is identified by a unique tool number, and each tool routine within a 
i?rc ^'^f ^'^^^ ^ unique /Uncfion number. Using this special method of describing an Apple 
. J° n. fu'''"'*''"^ provides Complete Pascal with the information it needs to generate a call 
mto the Toolbox. For example, the MoveTo procedure in the QuickDraw toolset (tool number 4) 
IS assigned the function number 58. Thus, the tool declaration is as follows. 

Example of a tool declaration: ^r;'is.it*.^ .mi^^^ M^^pm'^v isr^oi (^^A i^y**!*?^ ii •i-'-H-f-'^-- -•: 
procedure MoveTo(h,v: Integer); Tool 4,58; 



Parameters ^m?^:ntr^ ' -:^u 

The declaration of a procedure or function specifies a formal parameter list. Each parameter 
declared in a formal parameter list is local to the procedure or function being declared and 
can be referred to by its identifier in the block associated with the procedure or function. 

.^t&M formal-parameter-list - - . - - ■-—..•;; ^u\i v: *■«'■. • - 



*\£) y ► parameter-declaration V^^T) ^ 
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(.n int! 



— »( var)^ 



^ — Kf^ 



idenlifier-list 



— ^^TW 7-> type- identifier 




univ K 



Procedure and function declarations may have any or all of three kinds of formal parameters: 
Si • t;anai)Ze: a group of parameters preceded by the keyword var. . -(,, ,.,^.. ..,,-- . , . ., 
?• • ua^ue: a group of parameters without being preceded by the keyword var,,^- _ . . ._ , ■ 

')fcv>!^9::j r. 3'-. ■■ ■ -' 

• static, a group of parameters preceded by the word static. 

Value Parameters 

A formal value parameter acts like a variable local to the procedure or function, except that it 
gets its initial value from the corresponding actual parameter upon activation of the procedure 
or function. Changes made to a value parameter do not affect the value of the actual parameter. 

A value parameter's corresponding actual parameter in a procedure statement or function call 
must be an expression, and its value must not be of a file type or of any structured type 
containing a file type. 

The actual parameter must be assignment compatible with the type of the formal value 
parameter. If the parameter type is string, then the formal parameter is given a static size 
attribute of 255. „. ^: j^j^ftayi^M f^M m^ wma^i m^m.^^--^ ww»-v4 r,.^.,;... ..■ -, . 

^'^ ♦ Important: If the size of the formal parameter (in bytes of storage) is greater than 4 
bytes, then the actual parameter is passed by address and then the value of the actual 
parameter is copied into local variable space. Therefore, assignments to the formal 
parameter do not affect the value of the actual parameter. 

The actual parameter and formal parameter must be assignment compatible. This restriction 
can be overridden by declaring the parameter as Univ. Univ is described below. 

Variable Parameters 

A variable parameter is used when the value of a parameter must be passed back from a 
procedure or function to the caller. The corresponding actual parameter in a procedure 
statement or function call must be a variable reference. The formal variable parameter 
represents the actual variable during the activation of the procedure or function, so any changes 
to the value of the formal parameter are immediately reflected in the actual parameter. 

Within the procedure or function, any reference to the formal variable parameter accesses the 
actual parameter itself. The actual parameter and formal parameter must be assignmenL 
compatible. This restriction can be overridden by declaring the parameter as univ, which is 
described below. If the formal parameter is string, it is given the length attribute 255, and the 

actual variable parameter must be a string type with a length of 255. 
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File types can only be passed as variable parameters. 

Components of variables of any packed structured type cannot be used as actual variable 
parameters, . .,. .. 

, •> Note: If accessing an actual variable involves indexing an array, finding the identified 
variable of a pointer, or finding the field of a record, the action is executed prior to the 
activation of the procedure or function. Caution should be taken in accessing variables 
found in a relocatable block on the heap. Compaction of the heap can cause the original 
object to be moved, possibly leading to unpredictable results. 



Static Parameters 



Static parameters are a special extension to Complete Pascal for the Apple IIGS. They have been 
added for the specific purpose of obtaining improved code generation. Static parameters are 
treated exactly like value parameters described above except for the restriction that a static 
formal parameter should not be assigned a new value within the procedure or function. 

Value parameters whose formal type requires more than 4 bytes of storage are passed by 
address and then copied into the local storage for the formal parameter so that assigning new 
values to the formal value parameter does not affect the actual parameter (see Appendix D). 
However, there are cases when the formal parameter is only read from and never written to. In 
these cases, it is not necessary to copy the actual parameter value into local storage for the 
formal parameter, the formal parameter may access the actual parameter directly. 

Static parameters reduce the amount of stack space required by an application, and reduce 
execution time by not having to copy the value of an actual parameter into local storage for the 
formal parameter. ,, 

♦ Warning: Complete Pascal does NOT check that a static parameter is never written to. 
It is the responsibility of the programmer to ensure the correct usage of static parameters. 



UNIV Parameter Types 

When the word UNIV appears before the type identifier in the formal parameter list, the 
restriction that the actual parameter and formal parameter must be assignment compatible in 
the case of value parameters, and identical in the case of variable parameters is not enforced. 
When UNIV is used, the actual parameter may be of any type so long as the number of bytes 
required to store a value of the actual parameter's type is the same as that of the formal 
parameter. 



K^ 
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Here is an example of a univ parameter: 

TYPE Ptr = "Char; ' ■ ■■ - 

VAR aLong: Longlnt; 
i-i-illSn'-'h' 3Ptr: Ptr; « ns^mi^^fvi xWi^^vm tfiii^HSlvitiSSi-^': :;J? -^(ii' v ^u-*-". -^ 

2-5Ms procedure aProc(p: univ Ptr)f|,^1> ,-iC'iS?rt>^s ■J'- ^fi^f"-' O"**? * i- ^■■' ■'^'■'' * ' 

oegm „, . i, .-. . ..i—a..-^.—rfMtt^.— ■!'-»*■— ■■;t^-^'Wiy—"***"*^-'*'-**^-~-" -—--*-*-■ ^ •' 

aProc (aLong) ; rl-ii^ir^'.;:' ■: '■*• ' 
aProc (aPtr) ; 
end. . - _ . - - _ 



Parameter List Compatibility "T;I."" 7, "'^- "'L".?;"./^ .7 .7... l'^. i. .- .. .- 

Parameter list compatibility is required of the parameter lists of corresponding formal and 
actual procedural or functional parameters. 

Two formal parameter lists are compatible if they contain the same number of parameters and 
if the parameters in corresponding positions match. Two parameters match if one of the 
following is trueu^s^^^^Cj -r*3aOTanaa l^4;i:« 5^41 mmrJ-^ tsff! -f^^U-^:^^ ie^; ^'':^ - ^t ,-,w' -^v).. ■• - -..- ■ 

• They are both value parameters of identical type, i i^Ts^^jRia arli ^T'-'^iu*" jit^'. ■'■ 

• They are both variable parameters of identical type. .t.>!i;-*'.ii ■ . 

• The formal parameter has UNIV before its type, and the actual parameter is a value or 
variable of the same size. The parameters must still both be value parameters, or both be 
variable parameters. 
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Programs and Units 



.^I'i.- -.-.-.• ,-,<■ ; - 



*' " f ?j" ' ' '^^ iy . ^ '^'^'^^- ■ 



«;a£t>^.'.*L:; 



Comp ete Pascal provides two basic constructs whicii are the fundamental units of a piece of 
Fascal source code. These are programs and unUs. The main difference between a program 
and a unit is that a program represents a complete application which can be compiled and 
executed. A unit, however, can not be executed by itself, it is merely a construct in which parts 
ot a program can be defined and compiled independently of a program. Programs and units 
are independently compiled. Their object files are combined by the Complete Pascal linker to 
form a single executable file. 

Part I of this manual provides information about how to compile and link programs and units 
in addition, Part II provides detailed information about how to create each of the types of 
programs supported by Complete Pascal 



A^y.a*^ 4^^^]!? M* ^'V<VA'v«« :^f~i-^ *f^ i^M-^t^i. 



■ 4^ ff r^ iTfr -»*'.i.*F fv^fV-^-JL^i* 



Programs 



':>i£iS *fti? ^*(e S-^«*i stit 9JJ4» £>t^t^ mt^Pim^s s?r$^rm ttx: ^aja;; !==:.■ 



^ ,?^^*^f i.S™/?'" ^^^ ^^^ ^°™ of a procedure declaration except for its heading and 
optional USES clause 

■ s« a^$snh>t<r-i &i^r^$m sv-j^ft teff^-f$ 993^7^} ^>;dv- - ■ •■"■■ 



an 



program 



^ ("vft/l^S- /li* 



program-heading -►/'^Y^ 






uses-clause 




block 



K>^ 



i *a»t 31 ' !*-! ^i^-' ;:j:>fiv 



■,i^. 



The occurrence of an identifier immediately after the word program in the program heading 
A^l^^ltl^^ program's identifier. Program parameters, as described by Jensen and Wirth 
and the ANS Standard have no meaning to Complete Pascal. 



' ***c : ^*V4r^. i-i-.K. "'Mr 



Note: TML Pascal versions 1.x, associated a special meaning with the presence of the 
tile parameters Input and Output in the program heading. They were used to signal to the 

Mn ? nT^"!^ '^ ^^^""'"^ ''''^^^^ ^'^^ ^^""''^ ^'^"'^''' operating environment. Complete Pascal 
r^U LUNGER associates any special meaning with the file parameters Input and Output 
lo create the P/ain Vanilla {now called Textbook Graphics) operating environment call 
the procedure Graphics. " '^^ ' 



program-heading 
-►( program~)->- 



identifier 




( J-^ program-parameters 




'■ :i--\V 



program-parameters 
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Uses Clause 

The USES clause is used to identify those units which are required by a program or unit in 
order to compile successfuHy. 



uses-clause ^ ■ 1 

. , , ,- ►{ uses) ► identifier-list -^^^i^^,.-. ;•, ,-.^, 



When Complete Pascal encounters an identifier (the name of a unit) in a USES clause, it must 
find the unit's compiled object code file which contains the unit's object code and symbol table. 
To do this, the string ".p.o" is appended to the unit name to form a file name. For example, the 
following statement 

uses Globals, FileStuff; • ■„ • ^ -s 

causes the files Globals.p.o and FileStuff.p.o to be opened. ^''^'^^ ','^"*'^ .^ „,-\. !> t^,,' -. 

The uses clause in the main program lists all units required by the program. Such units 
include those used directly by the main program and indirectly by units used by the main 
program. 

It is possible that the unit's compiled object code file name may not match the unit's name. In 
this case, the compiler's $U directive must be used to specify the filename which contains the 
unit. The $U directive must appear immediately before the unit name in the USES clause. For 
example, the USES clause given above might be rewritten as *"* 

uses Globals, ..'^II "■ '' 



{SU :MyDisk:SharedStuff -.FileStuff .p.o } FileStuff; 



l'^ -- 



As the example illustrates, the $U directive is typically used to specify a units complete 
pathname when the file is not located in the same directory as the source code being compiled. 
The $U directive is fully documented in Appendix B. _ -^^^^- - -^ . ., , ., 

When a unit named in a USES clause uses other units itself, the names of those units must also 

appear in the uses clause, and they must appear before the unit is named. 

Consider the following example: .,,,.... ■ ,'' 

ISO^fi INTERFACE -"^'n-^'"--'-^ ^m.i5.TS^r> Mfe ^SES UnitA; ^^" •>'-*''**'' "^ ;^^;; ;-;';'.. 

.Jc-Cf3-' type Colors-(red, white, blue) ; * ■"^INTERFACE .,._.-.^ ..,.i-i „.i. .,, _ 
ifaa , IMPLEMENTATION ■<»«'it .- .. type Rec = record 

END. 





i: Integer; 




c: Colors; 


end; 




IMP LEMENTAT I ON 


^■::^-M ]■-' - 


END. 





PROGRAM MyProgram; tI<«.T:^ff"^«'7it»q j " .^ 

USES UnitA, UnitB; " 

VAR aRec: Rec; ,^ _, 

^.^^. • 
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In this example, the program MyProgram declares a variable aRec of type Rec, which is 
declared in unit UnitB. Therefore, a USES clause is used to name UnitB. However, UnitB has 
a uses clause which names UnitA. Thus, the uses clause in the program MyProgram must name 
UnitA in its uses clause, and further it must appear before UnitB. 

If a unit has been recompiled, then all units which use it must also be recompiled. This is 
required so that all dependent units do not attempt to reference unit declarations that might 
have changed or no longer exist. For instance, in the example above, if UnitB is recompiled, 
then MyProgram must also be recompiled, but UnitA need not be recompiled. And if UnitA is 
recompiled then both UnitB and MyProgram must be recompiled. 



a:.-..^ „^* 
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Units 



.. _ ^ . j-t^., 



Units are the basis for modular programming in Complete Pascal. Units are compiled 
separately from one another and should be used to organize large programs into logically 
related parts. Dividing a program into several units also reduces the amount of time necessary 
to recompile a piece of code. 

There are several reasons for using units in Pascal programming: 

■ • They help modularize large programsJ :-*-'^«:y^>i3,^i »« .^s v^vs^c^q ^ss-klftivs'.- .^:.-.•■.^' .■ ; ^ 

• They make common declarations and blocks easily available to many different 
programs. 

• They can be used to make sections of source text private from the rest of the program. 

The syntax for units follows: 3®ixij .^ vtt ? i ,!?na .^t'^;um .-f- • : 

Sid ?*^i' ■e^S ,ifas^vva w^r'^ V m'-' .! ■. -, 
unit 



►(unit j — ► identifier ^C^ 




interface-pan — ^ implementation-part — fr/end ) — ^C^ ► 



The identifier following the reserved word unit is the unit identifier. This is the name that 
other units as well as the main program use in a USES clause to specify that the unit's 
declarations should be made available. 



interface-part 



^f interface^ 



^ — ► uses-clause —^ — declaration ■*— ^ 



The interface part of a unit declares constants, types, variables, procedures, and functions that 
are public. That is, the declarations made in the interface part are available to other units or 
programs that name the unit in a USES clause. In other words, the scope of the public 
declarations is the entire program or unit that uses the unit. The program or unit that uses a 
unit can access the public declarations just as if they had been declared in its own block. 
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Label declarations are not permitted in the interface part of a unit. Procedures and functions 
in the interface part are declared by ^ving only the procedure or function name, the formal 
parameters (if any), and the result type (if a function). No code block is given for a procedure 
or function declaration in the interface part. Instead, the procedure or function heading is 
repeated in the implementation part where its code block is declared. Procedure and function 
declarations in the interface part behave as if the forward directive had been specified. 
However, procedure and function declarations may have the EXTERNAL, INLINE and TOOL 
directives in the interface part since they will aot have a code block in the implementation part. 

Variables, procedures and functions which appear in the interface part are termed ^/o6a/. The 
entire unit is within the scope of the block in which the uses clause that references the unit 

appears. ^^^'^^^^-^'*^'^'^-""^''"^^'^^^^^^^^^'*" ' ''"'" "'''"■ ""■ 

The interface part may contain a uses clause, so any unit can use another unit. 

- - implementation-part v 

X^f t;:iv5iu1 ^iai ► ( implcmentatiQn J -y «r — ► ^-t: ; : ^ 

V_ declaration -^ — ^ 






The implementation part, which follows the last declaration of the interface part, declares any 
constants, types, variables, procedures, or functions that are private, that is, not available to the 
program or unit which uses it. Private procedures and functions are declared like procedures 
and functions in programs, with a procedure or function heading and a body. 

All public procedures and functions declared in the interface part are redeclared in the 
implementation part. The only exception are thos procedures and functions declared using the 
EXTERNAL, INLINE and TOOL directives. Formal parameters and result types may be 
omitted, but if they appear, they must be identical to the previous declaration. 



lU 



V.^ 



tny^ r^H i ^-■■L V iii^--wr*'^ 



.---■f;'i-r>j*f;-i« -'.-' im t>4 t''--^-'^ 
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Input and Output 



^^^•s^-^ ! \*x.^s -=^.lfi.-. 



Si CoZ Pf PI ' "^r^^'^ ^"P"^ ^"'^ ""^P^^ ^0> procedures and functions provided by 
the Complete Pascal compiler for the manipulation of files. The predefined procedures and 
functions which do not affect I/O are described in Chapter 20. Procedures and 



File I/O in Complete Pascal ^^^^^tMts;; 4!\ sf.t^v^v sd:- h&ijAs ni ^u ?■ 

Complete Pascal provides two ways to" implement input and output-' -^^■'^"*'^- '' '•^'- ' ' . '■ 
• I/O routines in the Apple IIGS Toolbox. "*• *^"**^''* ^'^ .^y^mts).- s; arsyba&O'T'? r'>.-..V .v.; 

h^^ ^0 procedures and functions built into Complete Pascal *^"-^ *'*■■ ^^'''' "-*^- '* 

2llTn(M7LZT^ of accessing the Apple IIGS screen, keyboard, and mouse is through the 
SvstPTn .^ T J* "'' ^'"" Q"-'=''D'-'>w and the Event Manager. The GS/OS v5 File 

iiies. Appendix C contains a list of all interface files to the Apple IIGS Toolbox. 

Perfo™%o^„'nf '*^""'"'".r"'f"'' ?™"'*' *^" ^^^'«=' "^y '° ^««=^ *« ""tent^ of files and 
Sies:™u«ne:TdZl.'" "' ''""" ""'^ "'"^'"'^^^ "''"'^ '^''^'''^^ '^-— -<=>> "^ 



.^-•'^^(F "B--^* 



Pascal Files 

varfabre''wWch''r,'d"; '"^.T '"'".f """^ '^ ^''^ ''""""^- ^ file variable is simply a 
drrent types if files" '" "= "'"^'''' '^'^ ^""^ ^''^P'" ^^^- ^""P^^'^ P^-' -PP^'s Lo 

iext files «<!*»£* «jX5 SO*'?-*^ ^'."0/5- ■■-'^ ' - -^ -' 

^ • Typed files (also called Structured files) sis^J .Sill ii^tsaMie^ vv^^ ffJ :v:»t:»=.,r..-,; ^ =. 
Jhr!.^^'' ^'"' ^^'^Y'"^ ""^^^^ ^^" predefined type Text. Text files store dk'a 'as 'sequences of 

wrn:wT;;;:tr:nt:s ^nit'- '-' ^-''- ---\--^^: ^^ p^oce^duresi^^ 

defined to be a read-only file, reading data from the keyboard. Output is defined as a write- 
only file, writing data to the screen (text screen or graphics screen). 
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Typed files consists of a sequence of components. Whereas a component in a text file is a 
single character, the component in a typed file can be of any type other than a file type or a 
structured type containing a file type. A single occurrence of a component is called a logical 
record. 

Examples of files: 

var aFile : text; { Example of a text file 1 

var aFile: file of integer; { Example of a typed file } ■;-..}';■■ 

File variables refer to files consisting of a sequence of components. For text files, that 
component is always of type Char. For typed files, the component can be any Pascal type except 
for a file tjrpe or a structured type containing a file. In any case, the component is considered a 
logical record. Files may have any number of logical records, but only one is accessible at a 
time with the file variable. The position of the accessible logical record with respect to the 
beginning of a file is called the current file position. 

Prior to using a file variable, it must be associated with a file. Making this association is 
called opening a file. There are three procedures that are used to open a file: Reset, Rewrite, 
and Open. Each procedure is defined in detail later in the chapter. \ -^iu ■" ^h riai-'- 

♦ Note: The file variables Input and Output are predefined and are opened 
automatically at the start of the program. 

To open a file, its external name must be given. This name can be any valid Apple IIGS 
(GS/OS v5.0) file pathname or device name. ^^ ^^ ^^ ^s/c^f^-^h tH-m-^:^ ^;>?^.**-i.i 'is • --^ ■ -••■.-. .- 



Standard Procedures and Functions for All Files --'^^^y -» .. . : a 

The procedures and functions described in this section may be used with any text or typed file. 

The Reset Procedure 

Syntax: Reset ( f [, title ] ) fe^ * u*u^- k^z&mxP^ »>«• ?5JI^ .jisss*'^ *1 —V''^ .^ 

Reset opens an existing file for input or "rewinds" an open file by repositioning the current file 
position to the zero component. The file is opened for sequential read access only. When an 
already existing file is reset, its contents are not erased, f is a file variable of any file type. 
title is an optional string expression. 

If title is provided in the parameter list, then Reset attempts to open an already existing file 
with the name title and then associates the file variable f with the external file. If title is 
not a valid GS/OS file pathname or device name, or if the file cannot be opened, an error is 
returned in lOResult. 

If title is not provided in the parameter list, then f must already be associated with an open 
file. In this case, Reset repositions the file position to the zero component of the file. If f is not 
already associated with a file, then an error is returned in lOResult. ■ - • - - - 
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The Rewrite Procedure 

Syntax: Rewrite ( f (, title ] ) 

Rewrite opens an existing file or creates a new file for output or "rewinds" an open file by 
repositioning the current file position to the zero component. The file is opened for sequential 
write access only. When an already existing file is opened with rewrite, its contents are 
erased, f is a file variable of any file type, title is an optional string type expression 

^^■fwi^ '^ provided in the parameter list, then'Rewrite creates and opens a new external file 
with the name title and then associates the file variable f with the external file If the file 
already exists, it is opened and its entire contents erased. 

^i*""^!^^^^ "'**' provided in the parameter list, then f must already be associated with an open 
tile. In this case, Rewrite repositions the file position to the zero component of the file Iff is 
not already associated with a file, then an error is returned in lOResult 



The Open Procedure 

Syntax: open ( f, title ) .-t?^-Vr>"M*^ t^ii--'^''^ "■ v^^^^ 

Open opens an existing file or creates a new file. The file is opened for random read and write 
access When an already existing file is opened, its contents are not erased, f is a file variable 
ot any tile type, title is an optional string type expression. 

If title is not a valid GS/OS file pathname or device name, or if the file cannot be opened, an 
error IS returned m lOResult. * jfirciBfe'f©^ -Sf > flsrj^js ^x^=* Sfrerf^^ 



The Close Procedure 

Syntax: Close ( f ) ^ 

Close closes the open file, f is a file variable of any file type. The association between f and 
Its external file is broken and the file system marks the external file "closed". 



The Eof Function .um^i ^ i...-> 

byntax: Eof ( f ) 

Result Type: Boolean 



■*'j<>n p ia>o^-' « »^ii >M v-..*'**^'*'i *■*' "''kV'*** '-'-^' 



Returns the end offile status of a file, f is a file variable. Eof(f) returns true if the current 
tile position is beyond the last component of the file, otherwise it returns false. 

^ifi't r.'i.hf^f, «:)ff!>ftr!3^'; -^•!ft''"':3v fliil t s-i i .^*i.' "'f'O ^i 'W\' i.'i*>r.-.. .(■.■.'.■> yO ,?»<;: ' 
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The Seek Procedure 

Syntax: Seek { f, n ) 

Changes the current file position to the file component n and reads the new current logical 
record into the file window variable, f is a file variable, and n is an expression of type 
Longlnt. For text files, the logical record size is one byte. The number of the first file 
component is zero. If the value of n is greater than the number of components in the file, then 
the current file position is moved to the end of the file, and Eof (f ) is true. 

The Erase Procedure 

Syntax: Erase { title ) ss»4i s^ -B^»h<>43 -^'S Si'-^ «f^'^'^-^''*^*"^ -"^ ^^""^^^^^^ 

Erases an external file, title is a string type expression. The external file with the name 
title is deleted from its external storage device. 



The lOResult Function 

Syntax: lOResult .^i mf^^^'> si ^>1 4^^P 9^^ »s^- •-■■ -^i^>"-^ "^^^ mcS -^^ ■- '^^. '-'. -^ ■" 

Result type: integer ^-.(j '■ , ; . >>j8ftiee5 9^ ^m(i<i :!'- -i*^ tirt*-^**^ x^-'-'=''^ ■•^- *'' ' "-■' '' 

Returns an integer value that is the status of the last I/O operation performed. A value of zero 
indicates successful completion of the last I/O operation, while a non-zero indicates an error. 
Note that lOResult returns the status of the last I/O operation performed. Thus, the following 
two statements do not provide the results one might expect. 

Reset (f, 'myfile') ; S^^^OI^C^C^ ■;*'.-. '' 

Writeln( 'lOResult for Reset = \ lOResult); 

The call to the lOResult function in the Writeln parameter list actually returns the status of 
the Writeln operation for the string ' lOresult for Reset = ' since that was the most recent 
I/O operation, and not the_ call to Reset. Instead the previous two statements should be 
rewritten as: • "<«v--' — -^— -=^ - ■- ^ 

" Reset (f, 'myfile' ) ; - - ^ i*._ -, .- ^.. r 

svIOResult := lOResult; i.^v.-'.^'- 

Writeln (' lOResult for Reset = ', svXOResult ); 



The FilePos Function ,, , ^.-, - . .» «-^ w.-u^ ...:vv^: - . ^ :■ 

Syntax: FilePos ( f f '» "* ^^* 

Result type: Longlnt 

Returns the current file position of the opened file f , The first logical record in a file is called 
the zeroeth position. With typed files, a logical record is an occurrence of the component type. 
With text files, the component type is one byte. f is a file variable reference and the file 
referred to by f must be open. 
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The Rename Procedure 

6j/zma:: Rename (OldName, NewName) 

fx™ me namlToll""' • ""'" °'f ^"" ^"^ """"^^^ ^^^ ^^""^ ^^^^ expressions. The 
be fmmH fW! ?^ '' ^"^""'^ *' NewName. If a file with the name OldName can not 

be tound then an error is returned in lOResult. 



Standard Procedures for Typed-Fiies i^rf^r. i.^ v^ ».. r:p-..r.-;h ... ■.- . 

The procedures discussed in this section are used to randomly access logical records of tvoed 
Srtain7nVa°?r^:" '''' °'^^^' "^^^ ^^^ ^^ ^^ ^^^ °^^-'han file tfpe or structu?eXe 



t^n^, tx<a( n^iw Qvuj:j0.:-.^-i -.lor^v: -.>;: 



The Read Procedure With Typed-Files 

^ Read ( f, V, t , V2 , y^-, v„ ] , ,«s^^i 3. vn. ki,5A .,i: Ki.v. o-:,.> . 

omt',''.™!ft™'"'"'T' '"'° ^ ™"^'''"- * '= ^ *"■''= ^^"^'''^- ''"d ^^-^h parameter v is a variable 
of the same type as the component type of the file f. For each parameter v, the file component at 

f anrtTmnt it '"^T " T^ '"'l ^ ""/ "^^ *"''^ P-^"'"" -'*--- ^ tl^« "-' file exponent 
If an attempt is made to read past the end of file, then an error is returned by lOResult. 

The Read procedure is also used with text files as described below. With text files the file 

from s :ndardTn:ut'?"''rrf ' t'l'-'l" " '"^''''' '""^ "-"^ ^'^'«™-' would Sie^reTd 

is ,^ed wthtnTf 1 ;i r^'^''"/"'^ ^^'"^ '" ''"*'""•' ^= ^' ^^'^t- ™>«" *« -<=«<» procedure 
IS used with typed-files. the file reference variable is required. 






The Write Procedure With Typed-Files „. 

Syntax- write ( f, v-^ [ , vj v„ ] ) 

^riaSe'omr"^".' " '"^^^ *"''' ''""P™^"'- f i= ^ file variable, and each parameter v is a 

™wrUten t^thP fil "^^ '' '^\'^°ff^-^nt type of the file f. For each parameter v the value of v 

s written to the file component at the current file position and the file position is advanced to 

xpand'ed ; 'indurT'- '' n' '"""' ""'' P"^"""" "= ^' *^ ''"'^ "' *<= «'«■ then tlT file 
expanded to include the new file component. »<•• bmn isifft -fi"!^ -/.a 

varlaMe Hs^ln nnf'' 'l "''" "'f* "'* '?' *"''"" ^' '^^='="''^'' '^^'°"- ™th text files, the file 
Zntr/n f . r .t P^'^^'"^,t«'- ='"<=«. 'f >t >3 omitted, the write statement would then write to 

wHh tvoed rr. t"-rY "T""^ "'''*. 'If'''"''^ "^ '^^' ''''■ ^'" *« -"'« P™-dure is used 
With typed-files, the file reference variable is required. 
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standard Procedures and Functions for Text Files 

Text files are distinguished from all other types of files by the fact that they are organized into 
a collection of lines terminated by the carriage return character. Text files are unique from 
files defined as file of Char since the former is organized into lines while the latter may 

not. ....iA.«.*-=™n- .,.^..;.- . 

No procedure or function defined in this section requires an explicit file variable parameter. If 
no file variable parameter is given, either the predefined file Input or Output will be assumed 
based on the type of operation performed by the procedure or function. If the procedure or 
function is performing an input operation, the predefined file Input is assumed, otherwise 
Output is assumed. 

The Read Procedure With Text Files 

Syntax: Read ( [ f , ] v^^ [ , V2 , . . . , Vj^ ] ) ™«-=-^.--— — "- 

Reads one or more values from a text file into the corresponding parameters v^ . f, if 
specified, is a variable of type Text. If f is omitted, the standard file Input is assumed, which 
is associated with the Apple IIGS keyboard. Each v is a variable of an Integer, Longint, 
Real, Char, or String tYPe.,,^ ^^^^^ ^j^ ^ ^ -^ ^i^sr^sy:. ^ ^j^t ^i.m.^<ir.^'^^ -.- .. ■ -. 

Read a Char type variable. With a Char type variable, Read reads one character from the file 
and assigns that character to the variable. If Eof (f ) was true before the read was performed, 
then the value Chr ( ) is returned. If Eoln(f) was true before the read was performed, then the 
value Chr (13) is returned. The next read will start with the next character in the file. ^> 

Read an Integer or Longint type variable. With an integer or Longint type variable, 
Read expects a sequence of characters which form a signed whole number. All spaces, tabs, 
and end of lines are skipped until the beginning of the numeric string is found. Then all 
characters which are not a space, tab or end of line are assumed to be part of the numeric 
string. The string is then interpreted as a numeric value. If any characters in the string do 
not represent a signed whole number, then an error is returned by lOResult. The next read 
will start with the character which terminated the numeric string. 

Read a Real type variable. With a Real type variable, Read expects a sequence of characters 
which form a sig^ned floating point number. Ail spaces, tabs, and end of lines are skipped until 
the beginning of the numeric string is found. Then all characters which are not a space, tab or 
end of line are assumed to be part of the numeric string. The string is then interpreted as a 
floating point value. If any characters in the string do not represent a real number, then an 
error is returned by lOResult. The next read will start with the character which terminated 
the numeric string. 

- ._- . , ,,. 1 . _ _ iri «:._* ,t-*^t^ iKK-s.*^ <f.-i\ti *i I'^-j. :'_-,■?-,-;/! - .'■* 

Read a String type variable. With a string type variable, Read reads all characters into the 
string variable up to, but not including, the next end of line character. The next read will start 
with the end of line character which terminated the read. Note that successive reads of a string 
type will not read successive lines from the file since a read of a string type variable never 
advances past an end of line character. 
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The Readin Procedure 

Syntax: Readin ( [ f , ] v-^ [ , V2 , . . . , v^ ] ) 



n 



This procedure IS an extension of the Read procedure. After performing the same operations as 
Read would perform for the parameter list, Readin skips to the beginning of the next line of the 
Input file by skipping all characters in the Input file until an end of line character is found 
and then reading that end of line character. If no other lines exist, eof (f) becomes true 
Again, it f IS omitted, then the standard file Input is assumed. 



The Write Procedure With Text Files 

Syntax: write ( E f, 1 v. [ , v^ . ... , v ] ) 

stilt ,^«-TS:dPt^l. ^ ^ %i^>^\\:y. ^ ^ ' >..,Y«ri'. N.:m Wm: Vn -.- ^ 

Writes one or more values to a file of type Text. If f is omitted, the standard file Output is 
assumed which is associated with the Apple IIGS screen. Each v is an expression of an 
Integer, Longint, Real, Char, Boolean or String type. 

Each V is known as a write-parameter. Each write-parameter has the form - s,...^ -^-.;..- • 

.'«ir °"*^^^P^ [ : MinWidth (_^.; ^ DecPlaces ] ] ,,^ , _.^ .,, 

where OutExpr is an output expression of an allowable type, MinWidth and DecPlaces are 
expressions with integer-type values " -.-. ,,---5^.... - 

MinWidth specifies and minimum field width. MinWidth must be greater than or equal to zero 
Exactly MinWidth characters are written (using leading spaces if necessary), except when 
OutE^r has a value that must be represented in more than MinWidth characters; in this case 
enough characters are written to represent the value of OutExpr. Likewise, if MinWidth is 
omitted, then enough characters as necessary are written to represent the value of OutExpr. 

DecPlaces specifies the number of decimal places in a fixed-point representation of a real 
value It can be specified only if OutExpr has a real-type value, and if MinWidth is also 
specified. If specified, it must be greater than zero. If DecPlaces is not specified, a floating- 
point representation is written. 



•>.u-t-=^-T,.*>-. */rf . 



The Writein Procedure 

Syntax: Writein ( [ f, ] v^^ [ , V2 , »i,i^% ^^i'^^4) ,^jUi^&yu U^n-^^iK> -r.^ -. :■■■■■. 

This procedure is an extension to the Write procedure. After performing the same operations as 
Write would perform for the parameter list, Writein writes the end of line character to the file 
la carriage return). 
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The Eoln Function 

Syntax: Eoln [ ( f ) ] ' " 

Result Type: Boolean ^ *^ t , .., .. . _« ^jiu^ «^.:=rt«-w^ .»j- -r ..(.'-■■_.■ •. 

Returns the end of line status of a file, f must be declared as a file of type Text. Eoln (f ) 
returns true if the character at the current file position is the end of line character or if 
Eof(f) is true, otherwise it returns false. '''■.'-.' ■ t- .- 



The Page Procedure -™. ^^ ,^^-^^-^ « -— - - • ■ 

??^n fy^^"* filiV'- -tubo'K'^i 'A^:''^V ^■- 

Syntax: Page [(f)] 

Writes the form feed character to a text file, f must be declared as a file of type Text. If f is 
omitted then the standard file Output is assumed. *«. s i.j ^irr ft o.t 2-..-' .«sv o-i-.-^-'- ;• :• 

Disk Files and Complete Pascal 

When specifying an external file to any of the standard Complete Pascal procedures, the file's 
pathname must be given. A pathname consists of a file name optionally preceded by the file's 
volume name and zero or more directory names. The volume name, directory names, and file 
name are separated by colons (;). For example, 

«^* :M5^olume:MyDirl: ... :MyDirN:MyFile ^^^^ ^^ ^,^^^..^^^ ^^jt^X^:: .yL-:' ' 

In addition, the old style ProDOS/16 pathname syntax may also be used. ProDOS/16 uses the 
slash (/) separator rather than the colon (;) seperator. For example, ^px^^-. t,^ '^ .. « *•>.. 

/MyVolume/MyDirl/ ... /MyDirN/MyFile .^=^& %,, _^.^,,« «,*, .^...-\ >, -r --■>. - 

For complete information about GS/OS and pathnames see the GSJOS Reference. ,,.? j-.-.-' 



:jiwr?jscn e ,J»»i-ur»y^ -"'--i V- »;W'*4** ^^J^^ *j 



ri.<i'i'^-'Jir '^t t-y. -""i^./TH. 



Devices and Complete Pascal 



®ir"bc;::"0't": ri 



In addition to external disk files, Complete Pascal supports a set of devices for input and output. 
These devices are any legal GS/OS device such as the keyboard, the display, and the printer. 
The keyboard and display devices are automatically available when the program begins 
execution with the standard file variables Input and Output respectively. 

The printer is also available as a text device, but must be explicitly opened using the Rewrite 
procedure with the device name ".printer". For example, 

PROGRAM TestPrinter; 

var f: Text; 

begin 

Rewrite (f , ' . PRINTER' ) ; 
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for i := 1 to 10 do 

Writeln{f, 'Hello printer'); 
Close (f ) ; .: 
end; 



The device names ".PRINTER" and ".CONSOLE" are predefined by GS/OS. Other device 



v^ 



^^ 
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standard Procedures and Functions 



This chapter describes all the standard, predeclared procedures and functions provided in 
Complete Pascal, except for the standard Input/Output procedures and functions which are 
documented in Chapter 19 

Standard procedures and functions are predeclared. Since predeclared entities act as if they 
were declared in a block surrounding the program or unit, no conflict arises from a 
declaration that redeclares the same identifier within the program except that it hides the 
predeclared procedure or function. However, predeclared procedures and functions may not be 
used as actual parameters for procedures and functions. 



^1 ■■ fc i ^-^f'^ *^>i'«*j^ 



The Graphics Procedure 



«5\* K^V, 



Syntax: Graphics {screenMode: Integer); ^3*» *i?t aateRa»:> atjar^;-?-;- T.-v^^f^ ,-: ■ 

The Graphics procedure is used to initialize the Complete Pascal Textbook Graphics 
programming environment. This procedure should be called as the very first statement in the 
main body of a program. The procedure initializes the Apple IIGS Toolbox QuickDraw and 
Event Manager toolsets and places the screen in Super Hi-Res 320 or 640 mode depending upon 
the value of the screenMode parameter. The screen can be used for standard input and output 
with the Readln. Writeln and other I/O routines. QuickDraw graphics can also be done in this 
screen. _,,.,..._ ., . : .. ... _ 

The Graphics procedure is provided in Complete Pascal in order to make programming 
graphics as simple and easy possible. The Complete Pascal Textbook Graphics programming 
model is fully described in Chapter 7 of this manual. 



The Flow of Control Procedures 3r.:^r .:^s.:... - .> 

The procedures in this section allow for immediate branching of control in a program. 



The Exit Procedure 

Syntax: Exit ( id ) ''*^?»^« «^ s2*Tr-''^?.*ft'^ ^«l?\^*^'i '^^f^-'^ - 

The Exit procedure causes execution of a particular block to terminate immediately, where a 
block can be either a procedure or function, or the entire program. Essentially, it is equivalent 
to a goto statement to a label at the very end of the block identified by id. 
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The Halt Procedure 

Syntax: Halt iHO ^'^lOh'SDOl^l b'tDbllDlS 

The Halt procedure causes execution of a program to terminate immediately. 



The Cycle Procedure ^ . ■. . - 

Syntax: Cycle 

The Cycle procedure causes the execution of the body of a loop to skip to the end of the loop and 
continue execution of the next iteration of the loop. The Cycle procedure is only meaningful in 
a for loop, a while loop, and a repeat loop. If it appears outside of the context of these statements, 
it has no affect. See Chapter 16 for more details. 

The Leave Procedure ^ ™. 



Syntax: Leave B^SShB Z'^.?\''^. ZO'i'^-V. 'V^ '■'■ 

The Leave procedure causes the execution of the body of the loop in which it occurs to terminate 
and continue execution with the first statement after the loop. The Leave procedure is only 
meaningful in a for loop, a while loop, and a repeat loop. If it appears outside of the context of 
these statements, it has no affect. See Chapter 16 for more details. 

Dynamic Allocation Procedures and Functions 

These procedures are used to manage the heap, a memory area that is unallocated when a 
program begins execution. The heap used by the dynamic allocation procedures is the Apple 
JIGS heap, and the routines are implemented using the Apple IIGS Memory Manager. See the 
Memory Manager chapter of the Apple IIGS Toolbox Reference for details regarding memory 
management on the Apple IIGS. 



The New Procedure ^^E^jj^it^^^v^^ '^ sv^ii---* .^ 

Syntax: New( p ) -'-'--—** ^-^--^as^ *:r^Ji»etrms -;^> w<^ff.t? '-'i^--'- *^*'"'"'' ' -•'.-' i- 

New(p) creates a new variable of the base type of p, and makes p reference it. p can be a pointer 
variable of any type. The value of p is referenced as p'^. 

New actually calls the Memory Manager routine NewHandle to allocate a region of memory and 
returns a pointer to the allocated block of memory. 

An' error if the heap does not contain enough free space to create the new variable. In this case, 
p is set to nil and the HeapResult function will be set to indicate the error. 
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^y 



The Dispose Procedure 

Syntax: Dispose ( p ) .. , , ,.,..,., -,- -. ■ 

Dispose (p) destroys the dynamic variable referenced by p and returns its memory region to 
the heap, p must be a variable that was previously assigned by the New procedure or was 
assigned a meaningful value by an assignment statement. The value of p then becomes 
undetined and it is an error to subsequently make reference to any values previously 
associated with p ^ f j 



-iseSJ-i; 



Transfer Functions .. ^ .- , 

Transfer functions are used to transfer a value from one type to another. Note that the standard 
procedures Pack and Unpack as defined by the Pascal Standard are not implemented in 
Complete Pascal. 



.X^OiGffl -r^-i^if Ql^?^ .■5fij. OJ.^-i -fr^i.^n v' '(rwiJ'..'! -^•^Ic:-. •• 



The Trunc Function 

Syntax: Trunc (x) 

Resu/r 7>pe; Longint (x>:»^>v ^• : ■ ■ 

ll'^ sack «^ iiL':aA4mlfu& sa9^ .^f^lsocif -us 'saeejjil: ?t^.>^ i*i>-^iu<. '- 
Trunc (X) returns a Longint result that is the value of the real type variable x truncated to the 
nearest whole number that is between and x inclusive. It is an error if the result of this 
rounding is outside the range -maxlongint-1, .maxlongint 



The Round Function 

byntax: Round (x) . . - 

Result Type: Longint 



r*»j^^n* -^ <■*?;. 



Round (X) returns a Longint result that is the value of the real type variable x rounded to the 
nearest whole number. If x is exactly halfway between two whole numbers, the result is the 
whole number with the greatest absolute magnitude. It is an error if the result of this rounding 
IS outside the range -maxlongint-1 . . .maxlongint 



The Ord4 Function 



Syntax: Ord4 (x) ,^->f-^t.:j ■■ 

Result Type: Longint . ..,-...- 

Ord4 (X) returns the ordinal number of an ordinal type or pointer type value. Ord4 corresponds 
to Ord , except that the type of the result is always Longint. 
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The Pointer Function 

Syntax: Pointer (x) '" * -■-'-■■' 

Result Type: the anonymous pointer type -, . . 

Pointer converts an Integer or Longint value to a Pointer type. The return value of 
Pointer (x) is a pointer to the physical address denoted by the value of x. This pointer is of the 
same type as nil in that it is assignment compatible with any pointer type. The value of 
Pointer (0) is Nil. 



Arithmetic Procedures and Functions 



Arithmetic procedures and functions perform numeric operations on real or integer type values. 
The implementation of these routines can be generated directly by the compiler, or achieved by 
using the SANE routines built into the Apple IIGS Toolbox. 



The Inc Procedure 

Syntax: inc (x) - "■- 1 k^-.--.- . ''-y: 

Increments the Integer or Longint type variable xby one (1). 



The Dec Procedure '^ ' ^''* 

Syntax: Dec(x) ""^*'^^""~ ' ^ -,->*.- 

Decrements the Integer or Longint type variable x by the value one ( 1) . 



The Abs Function „ _..,,, . ^a, « ST>t^4 *^vi j^^^^ u «c- >.. l.- 

■ ■ - - wm'^tarf -^^^^^ '5i alt ^^^Ji^ r.i&' ■ ' 

Syntax: Abs (x) ^, ,^a^,,^^^ ^m^^<^S0^i^^^ ^-^i >'^^- r^^^-^^' '' — 

Result Type: same type as parameter. . ? -„ * 

Returns the absolute value of x; i.e. if x is negative, -x is returned; otherwise x is returned, x 
is an integer or real type argument. 

The Sqrt Function 

Syntax: Sqrt (x) -,.•-.! , . , 

Result Type: Extended i'-' -^^K^ "^'-^^'^ ^ -^^-^-^ l^^ii^t^ ^- ■«> i-i .'-Cf^/Jj^.'r'v;. r . - . ^ 

If X is non-negative, Sqrt returns an Extended value which is the square root of x. However, if 
X is negative, a diagnostic NaN (Not a Number) is produced and the invalid operation signal is 
set. See Apple Numerics Manual for more information on NaNs. 
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The Odd Function ,-,...- .^^u. ....-: . -> 

Syntax: Odd(x) .^; ^^.-v^^. . ..■■■ 

Result Type: Boolean :>(:»! -:.- ■- . -■ 

Returns True if x is odd, i.e. not divisible by 2 without a remainder. Ifx is even, it returns 
False. X IS an expression of an ordinal type. „,^^ v.„«.,,:>,,i ,,n.^^ ^.^^ , ,o ■ .=.vv .-..-. ■ 



The Sin Function 



.--^TiPC»ifntiWiJKiS3»r\-iT;.sKj!^;~!-i--i i,v.~, ijr«:..i;^=r-'-ir' 



i?esu/i Type: Extended 

Returns the trigonometric sine of x. x is any real type expression and is assumed to represent 
an angle in radians. If x is infinite, a diagnostic NaN is produced and the invalid operation 
signal is set. 



-.J. >s.- ... 



The Cos Function ^ ■ •- 

Syntax: Cos (x) 

Result Type: Extended * ^^ '^^"' ' t*3'^^-'<! *» -i^^.a^r « "Jo -ibs^cs! Ifiaicjo :?.'>'.' -■ 

Returns the trigonometric cosine of x. x is any real type expression and is assumed to 
represent an angle in radians. If x is infinite, a diagnostic NaN is produced and the invalid 
operation signal is set. 



The Exp Function 



Syntax: Exp(x) 'Ki^iS-- 

i£esu/£ 2>pe: Extended ^■'^''^'- ■"■- '■' 

Returns the value of e^ where e is the base of the natural logarithms. If floating-point 
overflow occurs, the result is +inf. x is any real type expression. 



The Ln Function 



Syntax: Ln{x) !x."^^-«v? 

Result Type: Extended i*i3*Vi*>f.-i=> >^e s.'Cn;^ 

Ln (x) returns the naturat logarithm ( logg ) of x. x is any real type expression. If x i: 
negative, a diagnostic NaN is produced and the invalid operation signal is set. 
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ons 



The Arctan Function 

Syntax: Arctan (x) '*■■* ;'' ^,, 

Result Type: Extended j-r-^ivvo-.r ■>' : 

Returns the principle value, in radians, of the arctangent of x. x is any real type expression. 

All numeric values of X are valid, including ±Inf. f,-' .'-.■•."■ •- - ■-— 



Ordinal Functions . . -^ 

The ordinal functions in this section operate on the ordinal value of scalar and pointer types. 
Refer to Chapter 13 for more information on scalar and pointer types. 

The Ord Function 

Syntax: Ord(x) ZfC" x*";-'' ■-- 

Result Type: Integer or Longint 

Ord returns the ordinal number of a scalar or pointer type value. If x is of type Integer or 
Longint, the result type is the same as x. If x is a pointer type, the result is the corresponding 
address of the dynamic variable pointed to by x, of type Longint. If x is of an ordinal type, the 
result is of type Integer and the value is the ordinality of x . The standard procedure Ord4 
should be used if the result type Longint is desired, regardless of the type of x. 



The Chr Function 



: ; i>V 



Syntax: Chr(x) -;r;.-^ ■ - 

Result Type: Char ^fsH'»r,^:?^--- :'- = :■ ' ■ i- 

Returns the Char value whose ordinal number is x. For any Char value ch, the following is 
always true: chr(ord(ch)) = ch. ^^^^^^ ^^^ ;^, ^^ ^^ :i.,f* ,v, fif.-s? -..r: .-v-.^^ .- ■ 

The Succ Function ^ajS-?;^ '^ - 

Syntax: Succ(x) • ... ■ rr ; 

Result Type: same as parameter *^..v — ^-n .-. 'v ■_ 

Returns the successor of x. It is an error if x is the last value in the type of x, i.e. it has no 
successor. 
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The Pred Function 



i J '.,;,0^ ,x*i-n ; , 'S'a' ) ;■ 



Syntax: Pred(x) 

Result Type: same as parameter 

Pred(x) returns the succe^or of x] It is an'erroVif x is the first i^e in the ty^^ it has 

no predecessor. 



-* ."(^ SliJ\t\ -l^W. T.ft.li 



.-■VV »«>». 



-...-,^.■v.. 



String Procedures and Functions 

The string procedures and functions do not accept as parameters packed array of character 
types, but rather only string types. '- 303 mm -icutvofc i^fsr. 



The Length Function 

Syntax: Length (str) 

Result Type: integer 



-~Sil^^^^^S:f^i^9S^i:'m^S^!^S^^:^^£^^T'^SB.'T-- ~ 



mofftniu^ boD emubi^oo-:^ ^i"- -. 



-r.'riH «ni*A4s«. 



f!^ trni ft*t.3fc??>e*ij Is sm 



Returns the dynamic length of the st;^^'^^*^ ^"^ '^^^^'"^ .f'^ « ^.-r,,,^- 



The Pos Function 



Syntax: Pos (substr, str) 

Result Type: Integer 






Pos (substr, str) searches for substr within str, and returns an Integer value that is the 

index of the first character of substr within str. If substr is not found, Pos (substr, str) 
returns zero. 



The Concot Function 

Syntax: Concat (str-j^ [, strj, ...str^^]) 

Result Type: anonymous string type 



f ^':^fi f-- » i & : -. : "3*-. 



The Concat function concatenates all the parameters in the order in which they are written 
and returns the concatenated string. Note that the number of characters in the result cannot 
exceed 255. 



■ ■ n iMi i t ■»■»■>» ^^ti*i ii * -s»-wia» — 



The Copy Function 



.■*-ii^^:i:<J '} ^ -I'm" -■■ ' 



Syntax: Copy (source , index, count ) 

Result Type: Strina tvoe < ^' * --^ ■ * t ■ - - 

The Copy function returns a string containing count characters from the string source 
beginning at source [index] . 
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The Delete Procedure 

Syntax: Delete ( dest, index, count ) ^"_ ^ 

The Delete procedure removes count characters from the value of the string dest, beginning at 
dest[index]. r^J ^"^ ■''• '^-'•*^-- -^'" ■^'' •^* ''-•"■'"- ^" ^ ...>-.>. 



The Insert Procedure 

Syntax: insert ( source, dest, index ) 

The Insert procedure inserts the string source into the string dest. The first character of 
source becomes dest [index] . 



Logical Bit Procedures and Functions . ...r -r > 

This section describes a set of procedures and functions for bit manipulations. These routines 
correspond to a set of essentially identical machine instructions of the 65816. 



The BAnd Function ' ' 

Syntax: BAnd(argl,arg2) ■-■-■■-.' ^ '^ ^ ; _^ ^ ^ 

Result Type: integer or Longint ...■.:-.. 

BAnd returns the logical AND of its two arguments, argl and arg2 are both expressions of a 
scalar type. 



The BOr Function 

Syntax: BOr (argl, arg2) .^ ^ . .^ 

i?esu^i Type: Integer or Longint ^-t'.''^'-- •:■■■■•"■ ;' r'-^^- '■'-■■'— _' 

BOr returns the logical OR of its two arguments, argl and arg2 are both expressions of a 
scalar type. 

The BXor Function _^..,«^_ >^.^™.-~^v ,^^^ -- .. .^*- 



Syntax: BXor (argl, arg2) 

Result Type: integer or Longint 



■.(-.i'; ; . ■^-■r- ;K.^'. 



BXor returns the logical exclusive OR of its two arguments, argl and arg2 are both 
expressions of a scalar type. 
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The BNot Function 

/x<;&>>.:^^ f'.L -:,- l.-Mt. ■■■■■■:- 
Syntax: BNot (argl) 

Result Type: Integer or Longint ...*«-,.s«*;i^«^««A..-*««---«.--w^-«.«-,..-.. — .*- --. - 

.-.^-.u-w - .J. ,-. .i-. 
BNot returns the logical negation (one's complement) of its argument, argl is an expression of 
a scalar type. 



The BSL Function ,^„,. „^_, ._._, .,. ..._.„. ., ^.. ... ^ .... 

Syntax: BSL(arg) -x nt^ 23 feersf bftff ^^ft-s-^b* vi^eui;- t-i ijg^-T-i-X'.^ ^>^-"^ 'ri-'-^fv ■ .\--r : ■ 

Hesu/i Type: Integer or Longint 

BSL shifts left the bits of arg by one bit. arg is an expression of a scalar t5T)e. A zero is shifted 
into the low-order bit vacated by the shift operation. 



The BSR Function " .....,..— .~.,.«-.;-;....:^^-^i-^.^,... ,, 

Syntax: BSR{arg) ' ,. , 

Result Type: integer or Longint ' ^ ""^ ^^^^ ' ^^^^^ '''r'^T' ^'^ ^ '? '^ 

BSR shifts right the bits of arg by one bit. arg is an expression of a scalar type. A zero is 
shifted into the high-order bit vacated by the shift operation. .-,_._ . ._^ 



The BRotL Function '^' 

1 1 . 1 1 lli^ 111 I I ' l ii'iBirt I i ii »»i»i» i ■ ■ 'iimni I n n Vr i r*" • '11 1 t iiiri . I ' l i i ii"""i " 'ii ■ i — j-^'ai^---i*^ ■■*— '-- 

Syntax: BRotL (arg) ^ .■ - ■ 

Result Type: integer or Longint fttS^^t^m.-) .^-.^O ' 

BRotL rotates left the bits of arg by one bit. arg is an expression of a scalar type. Bits are 
shifted out of the low-order position and back into the high-order position. 

The BRotR Function ^^^^^^^ , g^ ^j ^^^ ,^i^j^ ,^m^i:vt% 'me^^i ij^t^^^my;; . i^: e- i:^*' * ' 



'.I'.ev.nBX.n-Ar » ■=/& 



Syntax: BRotR (arg) „^-«.,^.. 

Result Type: Integer or Longint ., • 

BRotR rotates right the bits of arg by one bit. arg is an expression of a scalar type. Bits are 
shifted out of the high-order position and back into the low-order position. 



The HiWrd Function ~"^ ^^~»^i~^k «i^<m.m 'n ^^fil^^m-M ;^rfi J-^^. -^'J --^ v "- 

Syntax: HiWrd (arg) ^ 

Result Type: Integer ■ • 

HiWrd returns the high order word of the scalar or pointer value arg, that is, bits 31-16 of a 
Language Reference -,,...,, ....^i.^.,. 20-9 h-:-,- Standard Procedures and Functions 



Longlnt. If arg is not a 32-bit value, HiV7rd returns zero. When the argument is a simple 
variable or array access, no code is generated by this function because the argument is simply 
addressed and used as an integer. 



The LoWrd Function 

Syntax: LoWrd ( a rg) ■ - < 

Result Type: Integer 



LoWrd returns the low order word of the scalar or pointer value arg, that is, bits 15-0 of a 
Longlnt. When the argument is a simple variable or array access, no code is generated by 
this function because the argument is simply addressed and used as an Integer. 



Miscellaneous Procedures and Functions 



2iSit y-'.j -'J <;>'*-» Ji: 



r -^^i^^a'*'- '-^jOw-^-r 



This section describes byte-oriented procedures and functions as well as routines that operate on 
packed character arrays. 

The byte-oriented routines allow a program to treat any variable simply as a sequence of bytes. 
No regard is given to data types. The byte-oriented routines discussed in this section are 
MoveLeft, MoveRight, and SizeOf. 

The packed character array routines discussed in this section are ScanEq, ScanNE, and 
FillChar. Parameters to these routines cannot be subscripted and the routines always begin 
with the first character of the array. 

The SizeOf Function i^^-^.i^^,- ^^ -. ,v .- - > . 

Syntax: SizeOf (id) _ ^^^ ^,^^^^ «^ ^; ^^^ m t.m ^ ^.* -;. ^.:^ -M ^ >, ^- 
Result Type: Longlnt ... ,., Z, ^v.^.^ „^ ^t^s. ,j-^.. .^. ^^i^^,.... -.t^^. ^, . i -.. .\. . ■■ 

Returns the number of bytes occupied by the variable or type id. The value of SizeOf is 
determined by the Complete Pascal compiler, which treats it as a constant at compile time. 



The Card Function 

^ntax: Card(s) ...r.^:^Ht i*h^o-w<>f -^ni\.^nk jft-s.f fc»& ^■Aii>.^-^ -yi^^v^ ^^ -U '- ■■ - : - 

Result Type: Integer 

Counts the number of elements in the set s and returns an integer value which is the 
cardinality of the set, that is, the number of members in the set. 



, '^a -M'.^, i'h'j ..-.' ^aii -tnr. ^<-'';V n^.;■';;i;(f v; Y;;':v -^lU '•: bv-r,'.'* :.A.\-. . 
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The MoveLeff Procedure 

Syntax: MoveLeft {source, dest, count) ^**-=^'^=^-- --■' .--'i-'- ^- ^>t1-- " ' 



■^^:5 XC?aiO-Q; ;;^;:fi 



The MoveRight Procedure ^^^u^^^ f^ r.^. 

^™5;. - WoveRight (source, dest, count) -i.^r. foise ^Uf !'?C'.< 9:i' ■' -■. . 

The FillChar Procedure 

byntax: Fillchar (dest, count, oh) ■ «C3 1^ yj^n s-J-ml' i^^i --^>.f.'. ;.. -U.--'. 

count IS an .nteger expression and is not range checked. Ch is a value of a chSr tj^e 



The ScanEq Function 

Syntax: ScanEqdimit, ch, source) 

Result: Integer y.cBi.*;'^^ ■.•..- 

■ . .nl-XtOi^T -■ ■.- ■■■'■■: ■■ 
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The ScanNe Function 

Syntax: ScanNe (limit, ch, source) . ^,,, -., •—•c*-'^ --\-i' '.■i' '"■'' 

Result: integer . wjt. - -. - 

ScantJe operates the same as ScanEq except that it scans for the first character not equal to ch. 

Apple IIGS Toolbox Error Handling „_ . . , 



The Apple IIGS Toolbox defines a convention for reporting errors that may have occurred in the 
execution of a toolbox routine. If an error is detected during the execution of a toolbox routine, 
then upon exiting the tool call and returning to the application, the 65816 carry flag is set and 
the accumulator contains an error code describing the error that was detected- Complete Pascal 
provides a mechanism to obtain this information in a Pascal program. ^ --<*''-' ■ ' *^"-5-' ' ■■- 






The IsTooIError Function '^^^^^ ^^-^-^ ^<>^^ « ^--^ "t*^^^^^^ -^^^m ir> ^ 

Syntax: IsTooIError ,,„■. .. -•■ ■• 

Result Type: Boolean * -*"*- .,..-«--«-«-^ — — - 

Returns true if the last Apple IIGS Toolbox routine returned an error, otherwise false. 
IsTooIError tests the carry flag of the 65816 processor to determine if an error exists. The 
function must be called immediately after a tool call, before any other operation is performed 
that might affect the 65816 carry flag. In the case that the tool call is a function and the function 
appears in an expression, the result of IsTooIError may be incorrect since the evaluation of the 
expression may have affected the carry flag. In this case, a program should test the value of the 
variable TooIErr described below. 



The _ToolErr Variable 

Syntax: _ToolErr ' *■ -' "-'"-■ 

Type: integer 

The _ToolErr variable contains the error code returned by the last call to an Apple IIGS Toolbox 
routine. A non-zero value indicates an error. The compiler generates code which stores the 
value of the accumulator into the variable _ToolErr immediately after the tool call returns, 
before any other operation is performed that might destroy the value. 

Example usage of IsTooIError and _ToolErr: ^ ^.-^,i ^^^ ^^- h^^fiaiKiT.-* i;<Uc.r:"~t^^'^'^ i::'*.?- . ''■ • 

h := NewHandle(100,myMemoryID,0,Ptr(0)); 
if IsTooIError then begin 

theErr := _ToolErr; 

WritelnC'Error allocating memory:', theErr); 

end: 
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Writel'^VhTr^'fr '"''' 'T"^ '° ^ temporary variable before calling the standard procedure 
App le IIGS Tnn1b '7 ''""r '^' ™Pl«'"^ntation of the Writeln procedure caHs several 

.^ ~oLfelJr°:rbe;°t:t":ut;ut:^'' ^"'^'^ "'-'''- ''- -•- °^ -^-'=- --^ --- - 

^ecausfn^Lt"" "^^^J^^'^- >•-«"- -e defmed to never return a non-zero error code 
the a"ria e c d^ t^ ,?T'f' ''"""'' '^°"^^"' ^^o^^ "°' 1^"°- *- -^ =«" E-erates 

avoid hTvinfthis code ^n'' Y,° '"" ™'"! '"'" -'''"'"=^- '^ ^" application would like to 
cod~ ation For^' f f ''^' '' ""^ "? '^^ raToolErrorCheck-) directive to turn off this 
coae generation, ior more information, see Appendix B. 

♦ Note: TML Pascal versions 1.x defined the variable ToolErrorNum to have the same 

meaning as ToolErr. The variable ToolErrorNum may still be used however the n™w 
standardized name is _ToolErr, and is the preferred name nowever. the new 



i^: 



\ 



K^ 
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Error Messages 

^qI^o^^^"^'"' ^'^^^ ^^^ ""^ ^^^ Complete Pascal editor, compiler and linker errors as well as 
Crb/Ob and lOResult error codes. Explanatory notes follow some of the error messages to help 
clarify the message, and in some cases additional notes appear explaining how to solve the 
error. 

Some messages contain the special character '^' which is substituted by Complete Pascal with 
an identifier, label, or some other value to help make the error message as meaningful as 
possible. 



Editor Errors . ^j^j s-w^^A ^ Mss**^ j^^ ^«rf ^9i^s-H.<i^ w^^,.. 

• When Complete Pascal detects that you are running dangerously low on memory. In 
order to avoid the potential loss of data you are recommended to free some memory by 
closing a document window. You may also choose the Release Memory option from the 
Preferences dialog. 

"Memory is getting low. Close a document window." ".m^-.^rr: ^"-J^'Oi --^ - 

i *.,^**^ ^^6 "ot allowed to open the same file more than once, ^s l*^gs^ fi^^Kiiny' '."' ■ 
Can t open that file. The file already open in another window." ^. vj^i-k;-;*;: jfr^t C^ 

• An error occurred while reading the document from disk. This could happen if the file is 
damaged or the disk has been removed from the disk drive. 



"Error reading file." 

• This error is reported when Complete Pascal is unable to save the contents of a document 
^ window to disk. This is usually because the disk is locked, removed from the disk drive 

or the disk is full. """ 1-^-..,--.— -^r^-.s- ^- --■ ----^ .-,.~« r . 

"Error saving file." .0S ?^»twift.t It ^tmU^ioX-'^' ^yri^ bi" ; •■■■?. :-.•■, ■- 

• This error is reported after you have chosen to delete a disk file using the Delete... 
command from the GSOS menu and the disk has been removed from the disk drive or 
the disk is locked. -^ .- - 

"Error deleting file." " Mf?^fi- 

• This error is reported after you have chosen to rename a disk file using the Rename... 
command from the GSOS menu and you have specified an illegal filename, the disk has 
been removed from the disk drive or the disk is locked. 

'X "Error renaming file." "'■'"" " '-■■■'■,■-''■ 
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//>:• When an operation has failed due to the lack of available memory. 
"Insufficient memory to complete that operation." 



Compiler Errors 

Lexical Errors A 3f»i:fE«is?x« >Kc.'<i^9 *3i3a H.si<tii'ititi£. ■»»««k^ •.•7<raz m r^s 

• A string constant literal is missing its closing quote. 



it 



String constant must not exceed source line." *i'^^^ '^^^ -««^^ "^ ^ ''^-^ 



• The syntax for a numeric literal value is incorrect. 

r- Error m numeric literal. ^ew^^-^-sr-^— ^— .=s=« 

• An illegal character has been detected in the soure file. '" ' ' 

n? "Illegal character in input." ski'->fn *t» mx ;eai e*.7>Mt? Uvje^*? -.j^;rr,.-oO r;;^*. 

-*; • The end of file was reached before the program or unit was correctly terminated with a 

period. ^^-"'^ ^-v..<..=- 

"Incomplete program." ^v.ttfe^■w hv^mt:'^^ - «*^0 ..^-^ ^¥ii^^^ "■' vic.r; -^ ' 

• The Complete Pascal compiler skipped to the end of file searching for the end of a 
comment. If you open a comment witii either { or (* then it must be terminated with ) or 
*) respectively. See Chapter ll.sith?f:3 m if~:>^<^ ¥ps-i«s Mr- ^^r- - .k;^ .->■ r--- .' ■ -- 

2i "End of file encountered while reading a comment." ■^*'^' '*''^* ^»iip^---' ; ■•■ ^ ■ 

Syntax Errors 

These error messages indicate that a program contains illegal Pascal syntax. While the error 
message indicates the symbol that it is expecting when it detected the error, it is usually possible 
that other symbols could also repair the syntax error. If you are unfamiliar with Pascal syntax 
then you should study Chapters 11 through 20. « ^ij:'^ :^.-U- -. ■ '' 

l^ldentifier expected."^ ^.^^ . ,^^j^j^ ^ ^^^^^^ ^^^^ ,.6x ^^^ fe?^-r->^..; ^r , :«- ^:.- 

■ Unexpected symbol. , ;^^ ^^^ ^,^ ^,,^ ^.^^ ^^^^ ^,i^ ^,:j , .., ^ r,H.:.^. 

Integer constant expected. -^ m,-,; -.1 ■) ^ 

"Error in statement." •■ ^^rjj ,^,. ,;.,;• ., 
"Error in expression." 

" 'BEGIN* expected." , .. . >.«,;. ^. • -r-r" K.i,r>, .- ,> r- 

DO expected. ,.. , .. t . ., i, , ^ i.-. ";^^^ .v,-, ; ■ . *i ' j 

END expected. ■ . , , - .,;• , .^ ^-^ ....,:. ;.;■-. .,.i^ ,- , - ■,. - . - 

" 'IMPLEMENTATION" expected.*' " " ' "" " '"'' - '-jn* ■' V ~: ;- - 
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" 'INTERFACE' expected." S;AV «/: ^^-^i r*-; • ucl ^yn^^;« /: .jrrv *.-:;:.:; ^.. ; 

" 'OF' expected." 

" 'PROGRAM' or 'UNIT' expected." "J.-jv.f*fu. Jo--. - r:>f-T.;-ft<j ^" . -■ 

" 'THEN* expected." 

'TO' or 'DOWNTO' expected." *igit9 'h^ 9^5^ si-y Jisy^sfj it^.n )4;M»fe fii:^'::;i-I -./-Vi?:- ' 
" 'UNTIL' expected." .a^s^Ti; ^va^isri (■;■ y.^id^u-'iv.^ t-v./?':.".. i7..-o? >Lr ,2.»i.---.:; . 

')' expected." 
" ';' expected." nii&if^^if^s ia^i ^tv ^t^hi^z-r-qt t ^t'^bf^V^r^^.^r-.v t '7j,!v?V.-^ sj ■'.'.)•^-' 

'{' expected." 
" '[' expected." ■ .^oifirtf-'-^:^:"?-!!-^ &ie Sfcrt*" ;ij/i<^:-vs;i *t-i-:rv,>'U; ■ 

" ']' expected." 

" ';' expected." . "^..^aiiJisKj^^fe rio/^';-u t au 9^'.;? Ji-- -j-- j,..;r^v;K-' 

" '=' expected." **.?!9qNt;! ia**-i 70I -Hrrv- Osvt'eiJe g/riJin- -tj^ .:i?*t-i,j :'> -: ■■-: 

" '/ expected." ^ (W^s^tarfs^b *i;fiw o:>rgs ,ioc /^:)t>M i'.Sv>:jti:jr.-!)s^ ,-* -■'.•■v.--.'^' 

" '..' expected." ^J&is^-tsa 'm^^^? HAV ^> d^JfOAH >J .Hv! "^sfn li..' ; v^rt:-. j-.-: 1.. 
** V expected." " ^^^*iK<;'«?nr. j.-i^fft'^jK-^s^ .ion 1:^ rr-l-Jh-f*.- ., ' 

" ':=' expected," ".vfrrii fc»wc>rU vJM-r- -^^ -r- ■;■■.' 



Semantic Errors 



• When the same identifier has been declared more than once in the current block. 
"Duplicate identifier." . , ^. ■ ^-«.^5 '^ '' f ^"^^^' ■''' ' : • 

in an array declaration, the lower bound is declared to Be greater than the upper bound. 

"Low bound exceeds high bound." -j - t . , -, *<".' 

in the toliowing contexts, the specified type must Be a scalar or a subrange type such as 

Integer, Char, Boolean, etc The type is also not allowed to be a real type, 

"Identifier is not of appropriate cla^"^'^ ^T^ ^^ «»ct.^^.^^<r,' ^.X - 
"Identifier not declared." ^ y^^-^^i^^^,mf ^^--^^^ 

"Sign not allowed." . ,, , •^'^'''^' *^^ ^^ *^^- ^7' / ' 

"Incompatible subrange types." ,^ ^^T ' ^ ^^^ '^!^^ ' ' V" " '. 

"File not allowed here" 'Ba^fi^« «.- Wc^T^^fe ..* 3.^.yis.val ^^.u-.^.^ .'.r:.' ■ 



iagtieid type must be scalar or subrange. «: .j^.. ^.. ..„■,...'.:, - 

"Index type must be scalar or subrange." « , \^ Y" '' * ^ ,;''!/"- ^ 



• When the type of an expression passed as a parameter to one of Complete Pascal's 
predefined procedures or functions is incorrect. See Chapters 19 and 20. 

Error m type of standard subprogram paramet^.'^; .^.r^^.^ j^^^,^ ^i iTi...t;:v:..> 



• When a parameter list for a function or procedure declared FORWARD is repeated, or in 
a unit interface which does not match the current declaration. 

Repitition of parameter list is not identical to previous declaration." 'lf,\. " ,,^ J ^ 



Appendices"' '''''-^ A-3 



Error Messages 



File parameters must always be specified as VAR. '* r-' ?'■.''»-> -■ ''■ > I • ... 

"File value parameter not allowed." .1: ^t-i'ifi.-..' 'VlM'-i "■■- I'l-^-'.---' =■ ' 

Complete Pascal does not permit the use of expressions whose type is Longint for case 
expressions, for loop control variables or indexing arrays. .^wcrM-qKa .-. i- ■ 

"Longint case/control variable/index expression are not implemented." 

The following semantic errors are self-explanatory. 



'*«.■ 



.£-■■ 



"Missing result type in function declaration." ^*;,:^5■■'^-.^ 

"Fixed point formatting allowed only for real types." ",i>=:l-.". ;> ~ 

"Number of parameters does not agree with declaration." " (?J:*:^-^i* ■ 

"Actual parameter may not be PACKED for VAR formal parameter." 'i^3^c\r^ 

"Operands are not assignment compatible." =;-C' ■•"■ 

"Tests on equality allowed only." "' 'i-.'J;j.--^ ■ 

"Strict inclusion not allowed." 

"File comparison not allowed. ",__...«.---«-~-*--—.»«.>««--*^^*---'*<--'- — ^-■'--■^' — "^" -*— ■ 

"Illegal type of operandCs)." :-.-.;r".i -y.-.-- 

"Type of operand must be Boolean." 

"Set element type must be scalar or subrange." ^ ..^._j „^ , ^--y-^x^-Tf^h: '*'-.^^--' ''■ -'- ' 

"Set element t3T)es not compatible." 

"Type of variable is not array." y. -.-.,.r,^j7-rtfct --.i-,/.''; r. ■ 

"Index type is not compatible with declaration." 

"Type of variable is not record." ^ ^^^^i^,^^-^ .^i^zii^,^^ ■^.^^'■>. ^•: ' 

"Type of variable must be pomter. - 

"Illegal parameter substitution." ^%tte^ iXmA ^-v-^:* ,.;.:^- .* ■- -.. 

"Illegal type of loop control variable." , s^^^. -^^ j,f^^^\<i^ V-^ ■ '-">•' '■' ' 

* "Boolean expression expected." ;. '^^^^ ^^, '^^^ ,-.t^;-^ .-t.:, r^^^v ■ = 

"Assignment of files not allowed." ' - 

"Label type incompatible with selecting expression." ^ ^.^.j^^.*^ *.j ^or; jt Tf-rt^J-fr'-C ■ 
"Subrange bounds must be scalar." ' '"Zj^^u-d-i'.,-,-'^.-^- 

"No such field in this record. -. ^^^....^t,, ^^ ,,■."■ 

"Actual parameter must be a variable." T^^N'''d'^--^ -.'-';. - ■■ 

"Control variable must not be declared on intermediate level." l-^^f'^^-yr-y/., --, 
"Multidefined case label." 

I^li".*^"^^ declared." ';«««J^«, r^m^. <«« fe«v?. *,q*S H:-:-;,.- 

M"!defined label ^.,^,,^^., -M .nT-. a^ ;«,«!' v,v- >.■ .!' 

Multideclared label. -,,,«««}.;, •,. ,.;.« ^ *««.. .:.-v5 . — 
Undeclared label. 

"Error in base set." , ^,^.„, ^-. v -«; .1 I* ■ f ' 

^ "Illegal function result assignment. .\ ,. \^ • , ^^ ^. „ •.„:!-;..- 

"Must EXIT to an enclosing subprogram." ^^'^^ "^^ """*■' 

"Control variable must not be formal." ^ ,._..^.,^ feiKt^aat^ V^ ^-^vi !■ -.i:-:^ 

"Assignment to control variable is not allowed." 

"Forward referenced type "^" not completed in previous." ^ j^^ajv.'- ■; '*' - 

'•' "Forward declared subprogram "^" not completed in previous." .'_^ " . '. .' . 
"Label "^" was declared but not defined in previous block." 

"Size of string must be between 1 and 255." - ■■•'.:. 

"@ is not allowed for expressions or INLINE and TOOL subprograms." ' '■' "^ ' 

"Type cast to a different size is not allowed." 
"Too many nested scopes of identifiers." 
"Too many nested procedures and/or functions." 
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"Index expression out of bounds." '" *»V"^t;- J^i-' ' ' jom^,---: 

"Implementation restriction." 



Unit Errors 

tt.ij' ^^^" ^ ""^* named in a uses clause uses another unit itself which does not appear in the 
" current uses clause. 
-fO-vUiit.', xj!r^-je.i xjt ^ir^i 5, iaia^rc-ej^t ht laii* nAT -:^i.sY: <.} ftta i;.^-^* -;...';,^- ■. 

■'^^^le unit "A" require is required to USE this unit." ^^ '" '"''^^^ "^ "''^* ^ "' '-"^^ 

• When you specify the same unit name more than once in a uses clause. Also when a 
?.^i ""'*^ named in a uses clause has the same name as the unit or program it is within. 

^^*^*^ "Repitition of unit not allowed." ^^i^'"'*^^ '^-^*'* ^« T^^^27USi:^,^ 3,ni .c.'. ..-^.v-c.-r..^ 

• When a unit named in this unit's uses clause has been recompiled. To correct the error 
you must recompile the units named in a unit's uses clause. « .,^ „,.,..-, .., ,., ,,...,_ , 

*This unit must be recompiled." - ■-■ ■■■■.-. ...... ,.,.^ .«.,.>-.. „_..,. 



• When the ".p.o" file for the named unit cannot be found in either the current unit prefix or 
.^4 . *"® '^"'^ ^^^^<^f^ Pf^ih specified in the Preferences dialo? 



f-W ' 



f '"^ "Unable to find/open unit's symbol file " "^^l^ ^^ '-^ .<^^r,^ fx 

(gr. " ^ compiler is unable to create, open or write to the unirs ".p.o** file. The disk 

may be locked, removed fi-om the disk drive or full. 

.^^j "Unable to write unit symbol file for this unit." "^ 

• Whenever you receive a new version of Complete Pascal you must recompile all of your 

units. 



'Unit must be recompiled with current version of compiler." 



:r^:-;*' ;*; 



• When the number of declarations in this unit has exhausted the available memory 
allocated for the unit's symbol table. You should adjust the symbol table size in the 
Preferences dialog. 

"Symbol table space exhausted." *^**^ J*afe]>t i^ h-^-r^v 



*'r.?i 



Linker Errors ^^^^ \^^^^fr -. 

• Either of the following two errors may occur when you have specified the same segment 
name m a ($DSeg segname ) and ($CSeg segname } compiler directive. 

"Out of Memory. " ^^^. _ U l-'l! ^-^-.l 

"Segment "a" specifed as both CODE and DATA." ^^ ^'^^^^^', .^'! ^^<^' 

• A CODE or DATA segment became larger than 64K bytes. You must resegment your 
program so that the segment does not exceed this limit. See Chapter 16. 
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"Segment "^" too large." , \ L ir-ri;'; = - ;.[■.= 

• An externally defined label cannot be found by the linker. You should recheck the 
spelling of the symbol to make sure it is correct. =- 

?-"• L i ( . • 

"Unresolved linker reference to symbol "^"" 

'^^ • After a Compile To Disk completes successfully, the linker attempts to write the 
application load file to disk. This error is reported if this file cannot be created and/or 
opened. This can happen if the disk is locked or has been removed from the disk drive. 



"Unable to create/open application file.' 



.._.«,>!. *'..',j. i:,M^t\i ^A '■ i> .--f-iiW.-tl -'.!?■ f''*i, < 



This error is reported when Complete Pascal was able to create and/or open the output 
application file, but encountered an error during writing. This is usually caused because 
of a locked disk or a disk becoming too full to write the entire file to disk. „ ^. 

"Error in writing to application file." ■ -■ - — - 



GS/OS Error Codes 



. "V . J" l._ 



„. li i..,™-« ,1.^4 -.,■.> A.Ji 



This section lists the possible result codes of the standard function lOResult which reports the 
success of an I/O operation. The codes correspond to those returned by GS/OS, except for result 
codes -1, -2, and -3, which are generated by the Complete Pascal runtime routines for Pascal 
specific errors. The GS/OS error codes are provided here for reference. For complete 
documentation regarding these error codes consult Apple Computer's GS/OS Reference manual. 

General Errors , *,-.,, ^ >■ ■ ,.'.1 - 

$00 No error 
■r, $01 Invalid GS/OS call number ;:i^HraD 5« «<»?r-:?v v/^n i^ 3ft-^&^5^ ^k . - vf>-?^ 

$04 Parameter count out of range 
$07 GS/OS is busy 

Device Call Errors 

^. ■ ^-'swftii'ff^ 3<^i4 ^fe« ait^i' ;^^ «^<st4lf5fr'^ft^ "^ isdf-is^i! -■:'> ^ - "^-^ ■ 

^^ $10 Device not found ij tssi-fe$t &%©^ 3^T ^^Us.^ t'^^B '^'^''^'--^ ^''-^ ""*- ^9*'^--'-"';^ 

$11 Invalid device number ^at-yrj ^aa.:!;. / ":" 

$20 Invalid request 

$21 Invalid control or status code '•'.h^^eae.A/'i >?5?4v •?Irif ' trv. ■- 

$22 Bad call parameter 

$23 Character device not open -„,™«™*.-**..-.^w:«-«^— «—- ^— ' -•-— ■ • 

$24 Character device already open :.t.'}.\-,j- 

$25 Interrupt table full 

$26 Resources not available . t- 1 ./ • 

i. $27 I/O error .^'^^^v>.,q.: :.v«n e.er il0#«"er5att x^'« fet-v.^ cw^ i.V:-«'^..;.a ^... 

$28 No device connected Mi^^^s^ V^>^^^^ "^'^S^'^t' >:^^= V^tr...^ ^^.^^S. ^ 

$29 Driver is busy 



.1i ■ 



^ •-■,. i-^ 



$2B Device is write protected _ _, ,,.^^,^ r , u ^~^i '"'-■.'■•*. ^.. 

$2C Invalid byte count ".ATAO te SfiO.J rfJ.,.-.* «- !*^=1i..o -'-t.,. 

$2D Invalid block address . , , . -> ., ---.-i' 

$2E Disk has been switched '^-'' n^rf J -^.^^ -^rc-K* i^ — ,-.- .w^-._> .-■ 

$2F Device offline or no media present ' ' ""^-'^'^ ^*'-' ^"** ^■•''■"^^^'^ " -• ■"• ' 
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;vV-y 



K^ 



J?nyn> ■;■■.■■ ■ -, 
•t.j^TiJ if;--' '--.;?. ^' V 

- fn* "' ' • * "*- ' ■-' 
'ifs^tsttt^:^. N-^siiy>fF? ■ir*sV':^j ?*>.*;; i^S'.'-^ :•■-"' 



■(K' 






v^ 
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File Call Errors 

$40 Invalid pathname syntax 

$43 Invalid reference number 

$44 Subdirectory does not exist 

$45 Volume not found 

$46 File not found 

$47 Create or rename with existing name 

$48 Volume full error 

$49 Volume directory full 

$4A Version error 

$4B Unsupported storage type 

$4C End-of-file encountered 

$4D Position out of range 

$4E Access not allowed 

$4F Buffer too small 

$50 File is already open 

$51 Directory error 

$52 Unknown volume type 

$53 Parameter out of range 

$54 Out of memory 

$57 Duplicate volume name 

$58 Not a block device 

$59 Specified level outside legal range 

$5A Block number too large 

$5B Invalid path names for ChangePath 

$50 Not an executable file 

$5D Operating system not supported 

$5F Too many applications on stack 

$60 Data unavailable 

$61 End of directory Has been reached 

$62 Invalid FST call class 

$63 File does not contain required resource 

Complete Pascal Specific Errors 

-1 Textfile is not open for reading. 

-2 Textfile is not open for writing, 

-3 Numeric string conversion error in textfile. 
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Compiler Directives 



t Izi-'.tZ' ■ -'H-'i Vi-J 



Complete Pascal provides for several directives (or options) which affect the operation of the 
compiler and/or the code generated by the compiler. These compiler directives are written 
within the Pascal comment delimiters (...) or (*...*). A directive always begins with the symbol 
* and must appear immediately inside the opening comment delimiter and is followed by a 
letter Cease insensitive) which designates the particular directive. 

There are two types of directives: a switch directive and a parameter directive. A switch 
directive turns on or off a particular compiler feature by specifying^ or ■-' .respectively 
immediate y after the directive letter. A parameter directive has one or more string arguments 
such as filenames or segment names. A string argument is terminated by a blank an 
asterisk or a right brace. If a string argument must contain one of these characters, then the 
strmg should be enclosed in single quotes. :-• ^'j-= 

Examples of compiler direcitves: i^zmH &^l^'moi> snj ten^im ^jk? fe^-^o ai. B-?,-55«'.i^ -^^-'i -^.2 - '. 

»oiv*v. (*$LongGlobals+ *) .^j«5^i^ ■^H&XQ ^am*l<?f?Ti ^'i *Tv>;fV8>jT<» ni!:it^U:T}:^h A . - ■.■:i- 
*^«iS~«iraHj ^- ^•&Mus}^t3S^ nsi .«Ekda **s*i*^^ '^^ijtf^Jfl a^«j«ii/*j| '^'^^^rt-**"- -^i- ■■•. ':^ ' 

ij^n? {$CSeg NewSeg ) "^xmm t»?U (rf i«ai>ft n^s^Sii'^i ^£^.i^ <'*U- ^M^f^ ^i:U ^■u>: ii - -■■■ - . 

The following sections describe each of the compiler directives available in Complete Pascal. 



■- i^.'fTS!a^''mi^'^'«avf'ir- ■^!:xrv:ir~'r\-^: •sxr^-'-i.- ^i?-^ 



Classic Desk Accessory 

t$CDA menuName ) 

The CDA directive is used to inform the compiler that a program implements a Classic Desk 
Accessory rather than a GS/OS application. The structure of a desk accessory program is 
somewhat different than an application. In particular. Complete Pascal must generate a special 
header which contains the CDA's name in the Classic Desk Accessory menu. 

For complete information about writing Classic Desk Accessories in Complete Pascal see 

(chapter 10. 

Because the compiler must generate special code for desk accessories before any code in a 
program, the option MUST appear before the reserved word UNIT in your source code for it to 
have any affect. Consider the following source code fragment: 

f$CDA SHRDurnp } 

UNIT MySHRDump; 

end. 
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Code Segment 

{$CSeg segname } 

Default: ($CSeg main ) 

The CSeg option directs the compiler as to which code segment all subsequent subprograms 
should be allocated. The default code segment has the special reserved name main. For other 
code segment names, any string of characters is allowable so long as it does not contain a 
space. See Chapter 8 for more information regarding the use of code segments. 



Definition Procedure ^ocssu^t* sGh>a a .isman ut^w-^is "••'* -s^.ii.i'^^-'' -■ • 

($DefProc) .g*!T-Kip **:Si;i? J>J '.-•t-?"^'^^^^ >' ^ ■^■^' ■ : ."■ ■ 

The $DefProc directive is used to inform the Complete Pascal compiler that the next procedure 
or function which appears in the source code implements an Apple IIGS Toolbox definition 
procedure. A definition procedure is implement exactly like any othe procedure or function 
except that the compiler generates slightly different code. In particular, the compiler generates 
code which sets the 65816 data bank register equal to the memory bank containing the Pascal 
global variables. When the procedure exits, code is generated which restores the data bank 
register. 



Data Segment 

{$DSeg segname \ 

y* ^r^®^^^^*^- l$DSeg -global :f,,5^^^;,^^a e^iT iJr^.^^ii^-^ ^0^0 ^; .■'■;.'*i ■■"''■\-' 



i 



The Z)Se^ option directs the compiler as to which data segment all subsequent global variable 
declarations should be allocated. The default data segment has the special reserved name 
-global, for other data segment names, any string of characters is allowable so long as it does 
not contain a space, although conventions usually have the name begin with the tilde C~) 
character. Remeber that the -global data segment is the special segment in which the compiler 
uses the more efficient absolute addressing rather than absolute long addressing. See Chapter 8 
for more information regarding the use of data segments. 



■ .-»4 



. -i-Ji ■ 
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External Referenced Variable 

■ ($J+) or {$J-} 






M%i Default: {$J-) > Vi m»r^^^ s Jfi^t ift(ji':ic<^vi) -Sr^i mti&inl "j fc.=*i'M -'J :-v'''' >?:': -^■' . ■ - 

The ^xternal Referenced Variable directive informs Complete Pascal that subsequent global 
variable declarations should not have storage allocated. Rather, the global variable declaration 
IS treated as an external reference to a global variable declared elsewhere 

Typically, this directive is used for Pascal to access global storage declared in 65816 assembly 
anguage. However, it may be used with any language compatible with Complete Pascal 
linking conventions; Q^J^^ffWU m 8«fi^ ^ 



Consider the following source code fragment 



o^Jt^mR GlbbVarl: integer; 

{J+ } 

GlobVar2 : integer; 

iJ- } 



xit 



">»^se«-i ^pf! i'va1#H ■i£i!i(;£)3 Tf^VnV Tx--;i.\y -.,, 









GlobVar3: integer; . *^'. ■ 



Long Globals 



($LongGIobals+ ) or {$LongGlobals- 



'> Default: ($LongGlobals- )' *^ ^-^^^^ st^^^^ j^r^^r^ m ^fe^' ^i «v¥*:?:;-i-.rl. --^.-tA. '\.: -. 

This option directs the compiler to either turn on (+) or off (-) the generation of absolute long 
addresses for global variables in the -global data segment. Normally, the compiler generates 
code which sets the 65816 Data Bank register to the memory bank containing the global 
variables allocated in the -global data segment. However, there are several occasions where a 
program can not rely on this assumption. In order to guarantee that the compiler generates 
code which correctly addresses a program's global variables in the -global data segment under 
the conditions stated above, this option should be turned on, thus forcing absolute long 
addressing for all global variables. 



TOl 



^ .. „ : |i:f&w t»»YS?r-^t pd^ 3H>^t{ •«5.v.r'?^ TS^>'M s^^.y-h',': ' 'k'''; 






Appendices '''' --^''^y^"-"^ 



B-3 



Compiler Directives 



New Desk Accessory '=.-f':1r;nov r>eor'.^:''':c'-' : 

{$NDA period eventMask menuName ] ■ ' '-' ' ^ ' ' 

The NDA directive is used to inform the compiler that a program is actually a New Desk 
Accessory rather than a GS/OS application. The structure of a desk accessory program is 
somewhat different than an application. In particular, Complete Pascal must generate a special 
header which contains the period, in 60ths of a second, in which the desk accessory needs 
periodic servicing, an event mask which describes what kinds of events the desk accessory 
must act on, and the name for the desk accessory that should appear in an application's Apple 
Menu. 

For complete information about writing New Desk accessories in Complete Pascal see Chapter 

Because the compiler must generate special code for desk accessories before any code in a 
program, the option MUST appear before the reserved word UNIT in your source code for it to 
have any affect. Consider the following source code fragment: 

* ■• ' - • 
{$NDA 60 -1 CTIClock } .^.s- ■■.("> :%--.%v* ,v- 

UNIT CTIClock; | -■.) 

end. . S^n,3 -•'<'' £ iffVu-^i 



Stack Size .^^^^^^j^^^^^.^^^^gjg^.^,^;gg^^ ■-.■:■. .. 

[$StackSize numbytes ) 3?Ovk;'"'r- C-*'- 

Default: [$StackSi2e 8096) t ^%t^^m-im^.m -^ ^ ■^i-Si-'irs^C'^-^ ■* 

The StackSize directive is used to inform Complete Pascal as to how much space (in bytes of 
memory) should be allocated for the application's runtime stack. The runtime stack is used to 
store the return addresses of subprogram calls made during execution of a program and for a 
subprogram's local variables. Thus, the use of local variables in your program directly affects 
the runtime stack size your program requires. ,^+*jiy:,,* dta^i^ &**«I. ->?'':» -'^^ '».'^ ''i > .; ■ ■ 

The default runtime stack size is 8K, or 8096 bytes. If a program requires more or less storage, 
then this option should be used. However, at least IK or 1024 bytes, and no more than 4QK or 
40960 bytes, may be requested. However, Complete Pascal does not check the value specified in 
the directive. See Appendix D for more information regarding the runtime stack. 

Note that this option MUST appear before the reserved word PROGRAM in your source code for 
it to have any affect. Consider the following source code fragment: 

{StackSize 10240 } 
PROGRAM myProg; 
begin 

end. 
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Unit Symbol File Search Prefix 

($U GSOS prefix ) 
Default: ($U 0: ) 



ft,r nnH .V ^7rf" ^.^^''fT '° =?'="*'>' ^"^ '^g^' ^S/OS prefix for the purpose of searching 
[ntPrf^. "^ f f r ^■"■■l ^''"'^- ^'''^ Complete Pascal compiler does not recompile thf 
nterface part of un>ts speofied in a USES clause, but rather loads a precompiled symbol table of 
the declarations .n a unit from a «.p.o" file. To search for these files. Complete Pascal 
mamtams a current unit prefix used to create the full pathname of a ".p.o" file The default 

ir^i:,% ^^'=^" 'I^*^ ^^'°^ ^''""^ ^^ *"= <=""«"' directory. This unit prefix can be 
changed to any legal prefix using this comiler directive. For example. 



USES Types, 

{$U :CTI:MYSTUFF: ) HandyRoutlnes; 



Note that if a "p.o" file cannot be found using the compiler's unit prefix the Complete Pascal 
oZlf' Tr"° "n-T' t''"'^ "'^ '"''^ '^y "^■"e *^ ^«'' Se-e/' J'-'/^ specfied in the 



Tool ErrorNum Check 

{$ToolErrorChk+) or ($ToolErrorChk-l 
Default: {$ToolErrorChk+J 



^r AD^e Tirs t/^^^ apphcation to control the automatic generation of error checking code 
Too^Fr. ^n ? ^!'°^^^^<^^"^- As discussed in Chapter 20. Complete Pascal generates a STA 
ilbif va Lbr'Tonf^ l"^ '"" ^- " ^r''°" ^'^"'^"^ '' ^^^^ ^^^ ^P--^ C°-P^^te Pascal 
foutL Tnnn-^^ r ^ r^"' T'^'"' '^' ''^'^^ ^^'^^ °^ '^' "^"^^ ^^^^^^ly called Toolbox 
Tn^lK A "°"-=^«^/ roo/£;rr indicates an error occured during the exectuion of the last 

TautTf [Crn'/"' '""^ ^'^"' of _TooZ^rr is an error code that cfn be used to determte the 



In many cases an application does not need to check the value of ^Too/^Trr after Toolbox calls 
sfze oTan an!^ 7°' ""^ 'I' STA ToolErr instruction generated in order to decrease the^ d^ 
size of an application. To achieve this, the $ToolErrorChk directive is turned off. 
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xH^"^^ (^-O'lO-^^'i ^t-H iO'i' 













^vx^mSS^^^^Si^B^^^ 







srfi &r.hin-^i3.b vvi fe9?*« >il ??6'' ififM ?i»^^ len-s f«£ & •a-.v - 
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<^ 



V:;i- ■(.;• 





Apple IIgs T 


oolbo^ 









The Apple IIGS Toolbox is the large collection of sophisticated software which is part of every 
Apple IIGS. The Toolbox implements the QuickDraw Super Hi-res Graphics engine as well as 
the Apple Desktop Interface which includes windows, menus, dialogs, controls and much more. 

As discussed in Chapter 8. Complete Pascal provides access to the Apple IIGS Toolbox with a 
collection of predefined Pascal Units. This appendix lists the source code to each of these 
predefined units so that you can use them in your programs. The following units are provided 
in this appendix: 

• ACE """ 

• Controls 

• Dialogs 

• Fonts 

• IntMath 

• Lists 

• Locator 
. • Menus 

. • MiscTool 

• NoteSyn 

• QDAux 

• Resources 

• Scheduler 

• Sound 

• TextEdit 

• Types 

In addition, the Index to this manual alphabetizes each of the Toolbox procedures and functions 
referenced in this Appendix. 



• ADB 


i'-.' ..>' 


• Desk 'ip>Tiif*: ■ 


■^t.:.v:-- ., ■■■rxi 


• Events 


,'- -■- v",ii.3'. :^ V 


• GSOS 


<• ^Sf-.Wn-.'Xt .'■ 


• LineEdit ^^ 


• -*.. ■■ 


• Loader - ^'"'^- 


: 'ol-l* ■ ■ 


• Memory ■'^^^^**' 

• MIDI ■'^^-■^■;-^j 

• NoteSeq T ''' 

• Print 


If-;--- .'ili'' 


• QuickDraw ^^ 


-. ■.. 1 


• SANE >i^ji,.^;j 


r.-y« t^y:.rv._^ 


• Scrap .*JbP'B*-. 


: .-. ^-.-jt' 


• StdFile «*^»fl-- 


: J*;:.'.J-.-?-:».h 


• TextTool ^^ 


■ ?■■?«■;■■■> 


• Windows '"' 


■ I-.--, ■.■^:^- 



ACE 



^ 



K^ 



File: ACE.p 



***********ii**i 



f-^WM' K.' -*■* * f^I *.» <«■* ---■ »•••■•' 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 

UNIT ACE; 
INTERFACE 



zs.j>i^i .o.' 






, .--. 
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USES Types; _ 



•" VSt 






CONST aceNoError ^ 

acelsActive 
g*jj^;aceBadDP ^-yf ^igj' 

aceNotActive 

aceNoSuchParam 

aceBadMethod 

aceBadSrc 

aceBadDest 
vnfe ■■ _ aceDatatOverlap .-S^.'.ft^"'. 
;i.. (*■*■>• aceNotlmplementedt*'; fc*>t 



$0; 

= $1001; 

= S1D02; 

= S1D03; 

= 51D04; 

= S1D05; 

= S1D06; 

= S1D07; 

= S1D08; . 

= $1DFF; •*cr'^*1j 



(Error - } 

{Error - } 

(Error - ) 

{Error - ) 

{Error - } 

{Error - } 

(Error - } 

(Error - ) 

(Error - ) 

(Error - ) 



yffr' -oc ■•■■''■ ■, 



I'^igeU'rfO -Ji 



JS-v:?*?! IS^'^hi^A^-- ,.:;.;,fi^.fiw. ii--l^Vy '.JrV'n.^ v 



A ^/a ft* 3-»-«^R t^ii^crr^ faw.-v^ ^;v')/r^>'/^ 



Integerl^: X-b;,^<jff ,trfT 



PROCEDURE ACEBootlnit; 
PROCEDURE ACEStartUp ,. 

(dPageAddr: 
PROCEDURE ACEShutDown; 
FUNCTION ACEVersion : 
PROCEDURE ACEReset; 
FUNCTION ACEStatus: 
FUNCTION ACEInfo 

(infoItemCode; Integer) ; Longint; 



-.*;r=^ 



Integer; 
Boolean ; 



y'r^-^^^ fi':.--/ m m-ui^ ;.*'- 









PROCEDURE ACECompBegin; 
PROCEDURE ACECompress 
(src: 
srcOf f set : 
dest: 



method: 
PROCEDURE ACEExpand 
(src: 

srcOf f set : 
dest: 

destOf fset 
nBlks: 
method: 
PROCEDURE ACEExpBegin; 



Handle; jlj^M.iQi^J m 

Longint ;,^.^j^Q, I , 

Handle; ,j^^,^,>5 .. 

destOffset: Longintf t^^i&i^' • 
nBlks : Integer/ .» . w- 
Integer n ^ 

Handle; ^^---i^ ' 

Longint; ^^^ ' 

Handle; ■' '''^- * 

Longint; '^ 



Integer; 



S5> 



Integer); ,,.;ji^^ «^ 



-iiuy.-.r--.''- 



IMPLEMENTATION 
END. 






i .1 i . , 



ADB 



; File: ADB.p 



!■?■*»■■>•■*-.■«•. '*'''*''»-^ ■ ""' 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 

UNIT ADB; 



^■^-;^:? ^ M' 



j -•." P -t t ■,»»■*' ■ 



Appendices ;:-;,.! orq.':.*^. 
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INTERFACE 
USES Types; 



"'- V^' 



CONST 



. O- 






TYPE 



V_/' 



cmndlncomplete 

cantSync 

adbBusy 

devNotAtAddr 

srqListFull 

readModes 

readConfig 

readADBError 

readVersionNura 

readAvailCharSet 

readAvailLayout 

readMicroMem 

abort 

reset Kbd 

flushKbd 

setModes 

clearModes 

setConfig 

synch 

writeMicroMem 

resetSys 

keyCode 

resetADB 

transmit ADBBytes 

enableSRQ 

flushADBDevBuf 

disableSRQ 

transmit2 ADBBytes 

listen 



■•-ff^S ;i»r.n.f 



7-'OVfr' -i 



= S0910 
= S0911 
= $0982 
= S0983 
= 50984 
= $000A 
= SOOOB 
= SOOOC 
= SOOOD 
= $000E 
= $000F 
= $0009 
= SOOOl 
= $0002 
= S0003 
= S0004 
= S0005 
= $0006 
= S0007 
= $0008 
= $0010 

= soon 

- $0040 

= S0047 

= $00S0 

= S0060 

= $0070 

= $0080 

= $0080 

" $00C0,- 



{error - Command not completed, } 

(error - Can't synchronize } 

{error - Busy (command pending) } 

(error - Device not present at address } 






ReadConfigRecPtr 

ReadConfigRec 

PACKED RECORD 

rcRepeatDelay: 
rcLayoutOrLang : 
rcADBAddr 



"ReadConfigRec; 



{error - List full } 

(ReadKeyMicroData - } 

(ReadKeyMicroData - } 

{ReadKeyMicroData - ) 

(ReadKeyMicroData - } ;■; 

(ReadKeyMicroData - ) ■ ■< 

{ReadKeyMicroData - } -.,*:. 

{ReadKeyMicroMem - } 

(Sendlnfo - command ) ,: *■ ' i.-vi.-'-.'. ■ ■■ ■ 

{Sendlnfo - command } •,-y-.- ;i» '.'-till*- -■' 

{Sendlnfo - command ) -•<\ii'."! ; -.i. 

(Sendlnfo - 2nd param is pointer to mode byte } 

{Sendlnfo - 2nd param is pointer to mode Byte } '■ 

(Sendlnfo - 2nd param is pointer to SetConfigRec ) 

(Sendlnfo - 2nd param is pointer to SynchRec } 

(Sendlnfo - 2nd param is pointer to HicroControlMemRecJ 

(Sendlnfo - command } 

(Sendlnfo - 2nd param is pointer to key code byte, } 

{Sendlnfo - command ) 

{Sendlnfo - add number of bytes to this } 

(Sendlnfo - command - ADB address in low nibble} 

{Sendlnfo - command - ADB address in low nibble} -' 

(Sendlnfo - command - ADB address in low nibble} 

(Sendlnfo - add ADB address to this} 

{Sendlnfo - adbCommand = listen + (16 * reg) + 

(adb address) ) 

{Sendlnfo - adbCommand = talk 

{adb address) } 

•.-*■'■"■ ; T.f=. 



+ { 16 * reg) + 



Byte ,- 
Byte; 
Byte; 



= "SetConfigRec; 



END; 

SetConfigRecPtr 

SetConfigRec 

PACKED RECORD 

scADBAddr: 
scLayoutOrLang : 
scRepeatDelay: 

END; 



( Output Byte: Repeat / Delay } 
{ Output Byte: Layout / Language } 
{ Output Byte: ADB address - -■ 
keyboard and mouse } 



' ■ ,/■,.*■' 



Byte; 
Byte; 
Byte; 






{ keyboard and mouse } 



«Apr*A- 






■Wp^l'i-- 



1 -:. .l;^ 



= "SynchRec; 



SynchRecPtr 
SynchRec = 

PACKED RECORD 

synchMode : Byte; 
synchKybdMouseAddr : 
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Byte; 
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synch Lay out Or Lang: Byte; 
synchRepeatDelay : Byte; 



END; 

ScaleRecPtr 
ScaleRec 

RECORD 



xDivide : 
yDivide : 
xOffset : 
yOffseC: 
xHultiply: 
yHultiply: 



= "ScaleRec; ft ■!'■"■? 



END; 



PROCEDURE ADBBootlnit; 
PROCEDURE ADBStartUp; 
PROCEDURE ADBShutDown; 
FUNCTION ADBVersion:, . . 
PROCEDURE ADBReset; « o^ 
FUNCTION ADBStatus:.^ ^7 J- 
PROCEDURE AbsOff;,.,,,y5 tya Ziy ■ 

PROCEDURE AbsOn; — ,,,,m OJ ?*-^i<■.■,■ tJ 
PROCEDURE AsyncADBReceive 

(compPtr: Ptr) ; 
PROCEDURE ClearSRQTable; 
PROCEDURE GetAbsScale 



4 - 



T. ■S9i 

>%.*^ ". 
r l:.-.i.t.fT--5'r'f 



Integer; 
Integer; 
Integer; 
Integer; 
Integer; 
Integer; 



Boolean?a*^*ft.-; Jf^uH ■■ a^- --i^J""*^' f 






(VAR datalnPtr: ScaleRec) f 4 ft'»fle*': 



FUNCTION ReadAbs: 
PROCEDURE ReadKeyHicroData 
(dataLength: 
dataPtr: 
adbCommand : 
PROCEDURE ReadKeyMicroMem 
(dataLength: 
dataPtr: 
adbConunand: 
PROCEDURE Sendlnfo 

[dataLength: 
dataPtr: 
.- ^, adbCommand: 
PROCEDURE SGtAbsScale 

(dataOutPtr : 
PROCEDURE SRQPoll 

(compPtr : 
adbRegAddr : 
PROCEDURE SRQRemove 

{adbRegAddr: 
PROCEDURE SyncADBReceive 
(inpiJtWord: 
compPtr ; 
adbCommand ; 






Integer;- ^ifl»«5V>» 

Integer; V\ to*'*- 

Ptr; .c-.IH^^ 

Integer); ■: .t«»s>*^?- ■'^^^"^''■ 

Integer; 
Ptr; 



; ■ ';■•<»* - 

,*{•:■''■'. *• 

, ; > "/fl? * 

= ,r-m« • 



Integer) ; 




-:j 


Integer; 






Ptr; 


:!i.-? i 


-,W*5rg 


Integer) ; 


Tit^ J 


v«.*ti^ 




;;;-iflt' J 


vJ?V*J 


ScaleRec) ; 


-.n&^jf^ 




Ptr; 






Integer) ; 






Integer) ; 






^?ft'.>^s^^'i > 


..^,*1^# 


Integer; 




-.-►-^.yii 


Ptr; 




,0 ^Wl 


Integer) ; 













,,1 v-'-y^ ■ 
:.■; re, :'-■.;. 

." i .■ - 






.'i>';*JH:.i'.>.: 






'^-..;;-:i,-^ 






'i..'{ 



;J*?E*;:'tft.:?='"*<i- 






IMPLEMENTATION 
END. 



.r*/:«'."r^?- 



-.^ TV "^ '" ■' 



*• l!_, *■ 



Appendices 



f:0?: 9i;^^iA 



04 



Apple IIGS Toolbox Units 



Controls 



vy 



Pile: Controls. p - ■ . -.^JJ »^r-^ ' ■ rec-5 >. 

Copyright Apple Computer, Inc. 1986-89 ^^^:,^..': .C^^^, . -.,-. 
All Rights Reserved 

UNIT Controls; ■ ~v.,«ni v- :.0^0.^. ...>.■.-. s 

INTERFACE .^-qft^i- Vi Oa ^ .eta* - ^i^l'Hei-i^iAiJt^ . ..y^i.j\ii '.i*vr£.'. • i? -■ *^ :.*.i. .^■ 

USES Types, QuickDraw, Events; , ., , ,-, , .,, -., 



v_/ 



CONST wmNot St a r tedDp 
noConstraint 
hAxlsOnly 
vAxisOnly 
simpRound 
upFlag 

boldButton 
simpBRound 

downFlag 

simpSquare 

simpDropSquare 

leftFlag 

rightFlag 

dirScroll 

horScroll 

family 

ctllnVis 

inListBox 

simpleProc 

check P roc 

radioProc 

scrollProc 

growProc 

drawCtl 

calcCRect 

testCtl 

initCtl 

dispCtl 

posCtl 

thumbCti 

dragCtl 

autoTrack 

newValue 

setParams 

moveCtl 

recSize 

noHilite 

inactiveHilite 

nopart 



= SlOOl 
= SOOOO 
= SOOOl 
= S0002 
= SOOOO 
= SOOOl 
= $0001 
= $0001 
= $0002 
= $0002 
= S0003 
= S0004 
= S0008 

- $0010 
= $0010 

- $007F 

= $0080 

= $88; 

= SOOOOOOOO; 

= S02000000; 

= S04000000; 

= $06000000; 

= S08000000; 

= SOOOO 

= SOOOl 

= S0002 

- S0003 

= $0004 

= $0005 
= S0006 
= $0007 
= $0008 
= $0009 
= SOOOA 
= SOOOB 
= SOOOC 
= SOOOO 
= SOOFF 
= 50000 



{error - Window manager was not started first. > 

{Axis Parameter - No constraint on movement. ) 

{Axis Parameter - Horizontal axis only. J 

(Axis Parameter - Vertical axis only. ) i^-i-:- '■'■* 

{CtlFlag - Simple button flag } ^Ct l- :. ^ ; 

{CtlFlag - Scroll bar flag. } t :-^i: Tr..'i#:V;-.' r- 

{CtlFlag - Bold round cornered outlined button.} 

(CtlFlag - Simple button flag ) 

(CtlFlag - Scroll bar flag. } 

{CtlFlag - Simple button flag ) 

(CtlFlag - Simple button flag } 

{CtlFlag - Scroll bar flag. ) 

(CtlFlag - Scroll bar flag, } 

{CtlFlag - Scroll bar flag. J 

(CtlFlag - Scroll bar flag. ) 

{CtlFlag - Mask for radio button family number ) 

(CtlFlag - invisible mask for any type of control } 

{CtlFlag - } 



- li--'-?.' :--j.i.-.-^i.V'-> 
,.-.■ .-,-1. '>■■;■. :*..',.'-?! ■'> 



{CtlProc Jifi^Si 
(CtlProc - ) :• 
{CtlProc - J > 
(CtlProc - } ::- 
{CtlProc - } 



■ . 1 V 






{DefProc - Draw control command. } 
{DefProc - Compute drag RECT command. } 
(DefProc - Hit test command. } ■ '' •" 

(DefProc - Initialize command. } i^:-,-!-' , — 
(DefProc - Dispose command. ) -^Jsi-i.' 

(DefProc - Move indicator command, ) ' ' ' *■ 

(DefProc - Compute drag parameters command. ) 
(DefProc - Drag command. } 

(DefProc - Action command, ] ■o-;?.v" : • •■: 
{DefProc - Set new value command. ) ■" -■;' 
(DefProc - Set new parameters command. } '■■* "■ 
{DefProc - Move command. } • iv , 

(DefProc - Return record size command. .} " ' 
{hiliteState - Param to HiliteControl } '" 
(hlliteState - Param to HiliteControl ) "'* ■ 
{PartCode - } 



K^ 
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i*"simpleButton'^''-^'-*-" i^ S0002 

checkBox = S0003 

radioButton = $0004 

upArrow = $0005 

downArrow = $000 6 

PageUp = $0007 

PageDown - = $0008 

growBox = $000A 

thumb = $0081 

fCtlTarget = S8000 

fCtlCanBeTarget = S4000; 

fCtlWantEvents = $2000; 

fCtlProcRefNotPtr = SIOOO; 

fCtlTe 11 About Size = $0800; 

fCtllsMultlPar - $0400; 

titlelsPtr ■ = SOO 

tltlGlsHandle = SOI 

titlelsResource = $02 

colorTablelsPtr == $00 

colorTablelsHandle = $04 
colorTablelsResource = SOS; 

ctlHandlGEvent = SOD 

ctlChangeTarget = SOE 

ctlChangeBounds =• SOF 

ctlWindChangeSize = $10 

ctlHandleTab = Sll 

ctlHideCtl - S12 

singlePtr = SOOOO 

singleHandle ' ' = SOOOl 

. singleResource = S0002 

ptrToPtr = $0003 

ptrToHandle - S0004 

ptrToResource = $0005 

handleToPtr = S0006 

handleToHandle = S0007 

handleToResource = S0008 

resourceToResource = S0009 
simpleButtonControl 
checkControl 
radioControl ; 
BcrollBarControl 
growControl 
statTextControl 

editLineControl = 
editTextControl 

popUpCont rol , ; = 
listControl 

iconButtonControl = 

picCureControl = 
noCtlError 

noSuperCtlError = S1005 

noCtlTargetError = 51006 






{PartCode' - " ' ' " 

{PartCode - 

{PartCode - 

{PartCode - 

{PartCode - 

{PartCode - 

{PartCode - 

{PartCode - 

{PartCode - 

{CtlRec.ctlMoreFlags - is current target of 

typing commands ) 

{CtlRec.ctlHoreFlags - can be made the target 

control ) 

{CtlRec.ctlMoreFlags - control can be called 

view SendEventToCtl ) 

{CtlRec.ctlMoreFlags - set = ID of defproc, 

clear = pointer to defproc) 

{CtlRec.ctlMoreFlags - set if ctl needs 

notification when size of owning window changes} 

{CtlRec.ctlMoreFlags - set if ctl needs 

notification to be hidden } 

{Ctl Verb - 



no 



S80000000; 
$82000000; 
$84000000; 

S86000000; 
S88000000; 
S81000000; 
$83000000; 

S85000000; 
$87000000; 
S89000000; 
S07FF0001; 
S8D00000O; 
51004 



{Ctl Verb - 

{Ctl Verb - 

(Ctl Verb - 

{Ctl Verb - 

(Ctl Verb - 

(DefProc message - ) 

{Defproc message - } 

{DefProc message - } 

{Defproc message - } 

(DefProc message - } 

{Defproc message - } 

{InputVerb - 

(Input Verb - 

(InputVerb - 

(InputVerb - 

(InputVerb - 

(InputVerb - 

{InputVerb - 

(InputVerb - 

(InputVerb - 

(InputVerb - 

{ProcRefs - 
{ProcRefs - 
(ProcRefs - 
(ProcRefs - 
(ProcRefs - 
{ProcRefs - 
(ProcRefs - 
(ProcRefs - 
(ProcRefs - 
{ProcRefs - 
(ProcRefs - 
(ProcRefs - 






'-»*: 



t^fii- 



^:-. H'^^-^'-' ■'^^• 



; r ■■ J." 






(Error - no controls in window } 
(Error - no super controls in window) 
(Error - no target super control } 
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\^ 



notSuperCtlError = $1007; 
canNotBeTargetErro = S1008; 
noSuchlDError = $1009; 
tooFGwParmsError = $100A; 
noCtlToBeTargetError = SIOOB; 
noWind_Err ^ = SIOOC; 



{Error - action can only be done on super control ) 

{Error - conrol cannot be made target ) 

{Error - specified ID cannot be found 1 

{Error - not enough params specified} 

(Error - HextCtl call, no ctl could be target ) 

{Error - there is no front window } 



TYPE (SIFC UNDEFINED WindowPtr ) 

WindowPtr = GrafPortPtr; 

(5SETC WindowPtr := } 

{SENDC} 



■•>--';t.r«itB« [ 






= "BarColorsPtr; 
= "BarColors; 



BarColorsHndl 
BarColorsPtr 
BarColors 
RECORD 

barOutline : Integer; 

barNorArrow: Integer; 

barSelArrow: Integer; 

barArrowBack: Integer; 
; .e.t barMorThumb: Integer; 

barSelThumb: Integer; 

barPageRgn : Integer; 

bar Inactive: Integer; 






'^4, 



I color for outlining bar, arrows, and thumb ) 

{ color of arrows when not highlighted } 

{ color of arrows when highlighted ) 

{ color of arrow box's background ) -*■' 

( color of thumb's background when not highlighted } 

( color of thumb's background when highlighted) 

( color and pattern page region: high byte - 1 

= dither, = solid ) 

{ color of scroll bar's interior when inactive} 



V-y 



v^ 



I^to a 



BoxColorsHndl 
BoxColorsPtr 

BoxColors ' = 
RECORD 

boxReserved: Integer; 

boxNor: Integer; 

boxSel: Integer; 

boxTitle : Integer; 






= "BoxColorsPtrfr^vif/.^'iT !■ 
= "BoxColors; ;; yT>i-»T : 

{ reserved } 

{ color of box when not checked } 

{ color of box when checked } 

{ color of check box's title } 



BttnColorsHndl 

BttnColorsPtr 

BttnColors 

RECORD 

bttnOutline: Integer; 

bttnNorBack: Integer; 

bttnSelBack: Integer; 

bttnNorText: Integer; 

bttnSelText: Integer; 



= '^BttnColorsPtr; 
= "BttnColors; 



ri4i<sJn^ 



-. ■ ■ ■- ro':- ■•-."■ 




•(HJ.^-- ■■ 




'J :ti),Tih ■■ 




-i'l-i^^i "JS 




i/v^' '^' ,' ;-i'' ■ . *.■ 


";,■< 


• .■■ ■ r* s»*--? ■ -^ 




. '.'■ftiiSlS t,' 




^■. .. -fi.,-«J '■ - 


v.- 


--^■' ty 




=ted } i^flii 





END; 

CtlRecHndlPtr 

CtlRecHndl 

CtlRecPtr 

CtlRec 

PACKED RECORD 
ctlNext : 
ctlOwner: 
ctlRect : 
ctlFlag: 
ctlHilite: 



{ color of outline } 

{ color of background when not selected } 

{ color of background when selected J ''tf^-iS 

{ color of title's text when not selected } 

{ color of title's text when selected } 



= "CtlRecHndl; 
= "CtlRecPtr; 
= "CtlRec; 



-. iik(-:^-:,'.,^trj 



■-J^'!w; 



CtlRecHndl; { Handle of next control. } ' '''«' 

WindowPtr-; { Pointer to control's window, } ' ■ ^ 

Rect; { Enclosing rectangle. ) ' ' 

Byte; { Bit flags. ) : 'a J'' 1 -■=■ ?r-:- 

Byte; ( Highlighted part. } ; i .■,•.■■.-■ .. t^ 
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ctlValue: Integer; { Control's value. ) 

ctlProc: LongProcPtr; { Control' s definition procedure . } 
ctlAction: LongProcPtr; { Control ' s action procedure. } ' ' 
ctlData: Longint; { Reserved for CtrlProc's use. ) 
ctlRefCon : Longint; ( Reserved for application' s use. } 
ctlColor: Ptr; ( Pointer to appropriate color table. } 

ctlReserved: PACKED ARRAY [1..16] OF Byte; 

{ Reserved for future expansion ) '.■ 
ctllD: Longint; 

ctlHoreFlags : Integer; ' ' -■ ; ■ -■ 

ctlVersion: Integer; 



if 



END; 



LimitBlkHndl 

LimitBlkPtr 

LimitBlk 

RECORD 

boundRect : 
slcpRect ; 
axisparam: 

En»3ri dragPatt : 



= "LimitBlkPtr; 
= "LimitBlk; 






■- 1 /. ■ 



. ■»*■. T 



Rect; ( Drag bounds. } i»?«j". .--TiS-:- ' .'■-•- 
Rect; { Cursor bounds. ) t«?-*:Jf=T : Wwi ^-v.?-. :.^^. 
Integer; ( Movement constrains. '*^f^ -''*"' ^■■"'-'■"''^ ' '"-"' 
Ptr;!!i:*jfcC { Pointer to 32 byte Pattern for drag outline.} 
-■■:ipA:V* '■ - --■ -■ 

f - 3 !v<* i'^fs'A :it*oi^-; ->$K4 aiS'CWWS fcna ?^lsi^ ) -.-at*.;!-.' -,L<^Ot,ii . -i 
RadioColorsHndl = "RadioColorsPtr; '' ' 

RadioColorsPtr j^Iv->. = "RadioColors; ■*■- :''i-?.'Sli ■ -- ir-fi^-J " -J^' 
RadioColors w. * ' 

RECORD 

radReserved: Integer; { reserved 1 *:i3i^;.>f-5S * 
radNor: Integer; ( color of radio button when off } 
radSel: Integer; { color of radio button when on ) 
radTitle: Integer; { color of radio button's title text} 






EH&? 



1 b'l 



PROCEDDRE CtlBootlnit; 
PROCEDURE CtlStartOp | -y 
(userlD: 
dPageAddr : 

PROCEDURE CtlShutDown; 

FUNCTION CtlVersion: 

PROCEDURE CtlReset; 

FUNCTION CtlStatus : 

PROCEDURE CtlNewRes; 

PROCEDURE DisposeControl 

(theControlHandle: 

PROCEDURE DragControl , ■ .,■ -: 
(startX: *»■:.;- «- 
startY: 
liraitRectPtr: 
slopRectPtr: 
dragFiag: 
theControlHandle : 

FUNCTION DragRect 

(actionProcPtr : 
'. dragPatternPtr : 

StartX: -*;.^^,i« 
StartY: 
dragRectPtr: 
limitRectPtr: 









■ - ..:;y;^ 










Integer; 
Integer) ; 


vsJT-fii'Iu--:?'*- 


-^- <. 


- ■ U 


Integer; 


;ii;oU5'3.«:. 


;55* * 


\ :^■2:tii■' 
■■ Til ) ■■ 


Boolean; 


1^ 'v'''"'"- ' 






CtlRecHndl) ; 


3 --a-it ■ • 






Integer; t:y 


i<> I'j- :^ ^ j 


-,s^o,'-.: - 


jx' ti'tCi-. .' '. 


Integer; 
Rect; 
Rect ; 


i L,.9rtK---?n.. 


i/y- * 


I .-I.:::-.. :■ 


Integer; 
CtlRecHndl) ; 






■ ":\ 


VoidProcPtr; 






r- ■' ';.\ 


Pattern; 


r^R • -.i's.j^'-^'^^'a?^ 


. ::>f-- J.. 


Integer; ,cj 
Integer; { «r> 
Rect; epi,i > 






■^ - 


Rect; >j:'-riT-! i 


•it-> • 


. '" ' ■<'* 


■ .- 1 ' " , ." . ■^- ■ ■ 
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slopRecCPtr: 
dragFlag : 

PROCEDURE DrawControls 

(theWindowPtr : 

PROCEDURE DrawOneCtl 

(theControlHandle : 
PROCEDURE EraseControl 

(theControlHandle : 
FUNCTION FindControl 

(VAR foundCtl: 

polntX: 

point Y: 

theWindowPtr: 
FUNCTION GetCtlAction 

(theControlHandle : 
FUNCTION GetCtlDPage: Integer; 
FUNCTION GetCtlPararas 

{theControlHandle : 
FUNCTION GetCtlRefCon 

(theControlHandle: 
FUNCTION GetCtlTltle 

(theControlHandle: 
FUNCTION GetCtlValue 

(theControlHandle : 
FUNCTION GrowSize: Longint; 
PROCEDURE HideControl 

{theControlHandle : 
PROCEDURE HiliteControl 

(hillteState: 
theControlHandle : 
PROCEDURE KillControls 

(theWindowPtr : 
PROCEDURE MoveControl 
(newX: 
newY : 

theControlHandle: 
FUNCTION NewControl 

(theWindowPtr: 

boundsRectPtr: 

titlePtr: 

flag: 

value: 

paraml : 

param2: 

defProcPtr: 

ref Con : 

colorTablePtr : 

PROCEDURE SetCtlAction 

(newActionPtr : 

theControlHandle ; 
FUNCTION SetCtllcons 

(newFontHandle : 
PROCEDURE SetCtlParams 
{param2 : 
paraml : 

theControlHandle; 
PROCEDURE SetCtlRefCon 

(newRefCon: 



Sect ; 

Integer) : Longint; 



WindowPtr) ; 
CtlRecHndl) ; 

CtlRecHndl) ; 

CtlRecHndl; 

Integer; 

Integer; 



■»*: in.. 



V 1 Ife: 






WindowPtr) : Integer; ,^^, ^^ 
CtlRecHndl) : LongProcPtr; 



s ^.-I'l.-i" lli . 



CtlRecHndl) ; Longint; 

CtlRecHndl) : Longint; 

CtlRecHndl): Ptr,- . .^^ 

CtlRecHndl) : Integer;.^^ ^^ 



CtlRecHndl) ; 

Integer; 
CtlRecHndl) ; 

WindowPtr) ; 

Integer; 
Integer; 
CtlRecHndl) ; 






WindowPtr; 
Rect ; 



Ptr; 

Integer; -,.,-^. i;cH*«-to{?L; 

Integer; 

Integer; m<^?.|.*o4 

Integer; ^ a«#feiri^i4fe 

LongProcPtr; 

Longint; ^.,,, • Ufengs^. ^,,t 

Ptr) : CtlRecHndl; 

LongProcPtr; . rib,,-:.^^,*: t> 
CtlRecHndl); 

FontHndl) : FontHndl; ^^^ 



Integer; 
Integer; 
CtlRecHndl) ; 

Longint; s.U;tt^.' .;...a---.r' 






■:.'-- ;-■> "-V -- 

■ ■*..■■!•;■" ;.(:;!' >'-. if.',-;- -,;- 
.?-!*f:s^"ki :--■•. '>;'/■;■ s /,' 

I'Pifa -, ■■>*'.;..--' ' ■■'-- 
: ^-' mSi, • 
. woft'- »■■■.• 

. *;■_' 7-5t -^ -»■ 'ii Ftlin'/" ' <■''■ 

•-I ■?-■:>■*■■- 
■ =.;.■:;;■• '"■: J^^-i :i 

:J|I ^i ,—■■'• 
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: trs-*^' 


,^•1 r vH-rr-^' -' 




.,! ,- ■ ■-^.-rsjft t.-i '. 


. C./ii ".: 






.- ^ ■ <:■■■■: 


- •■ 


- t-.; ^'Mioi ■■ 


iJT-'^^.- 


,_ 


,^i,ipu:^^i. '.J 


*.^, iti-. '. -'^^i.^- : 






■ ,v,"^ f ri*^3y 


1> t 


•;-fv!-W'J^-^r.:f-1 






•,'*?.';:<--*'.•: *'i 


'ij;=vit.;i ''■ 




_ :.*it^ ^ ■'■ > 


."'V- ■■■ 




; : -^i|¥i- ^ v.- 


- V :r:^ ■-■ • 




. . -pn.'*f 


\ .*•■)»:•!,.• t-i )/. 








Integer; 
Integer; 
LongProcPtr; 
CtlRecHndl) : Integer; 



WindowPtrf 

Re f Descriptor; 

Ref) : CtlRecHndl; 

CtlRecHndl; 

CtlRecHndl; 



■s-'A,^ i {i:.-'-Tir'---^.?iSv 



.^iXiT'jA ': rj 



.i-i- ■(-■*>«'■-■- • ■■ 






theControlHandie: CtlRecHndl) ; 
PROCEDURE SetCtlTitle 

(title: Str255; 

theControlHandie: CtlRecHndl) ; 
PROCEDURE SetCtlValue 

(cu rvalue: Integer; 

theControlHandie: CtlRecHndl) ; 
PROCEDURE ShowControl 

{theControlHandie: CtlRecHndl) ; 
FUNCTION TestControl 

(pointX: Integer; 

point Y; Integer; 

theControlHandie : CtlRecHndl) : Integer; 
FUNCTION TrackControl 
( start X: 
startY: 

actionProcPtr: 
theControlHndl: 
FUNCTION NewControl2 

<ownerPtr : 
inputDesc: 
inputRef : 
FUNCTION FindTargetCtl : 
FUNCTION MalceNextCtlTarget : 
PROCEDURE HakeThisCtlTarget 

{targetCtlRecHndl : CtlRecHndl) ; 
PROCEDURE CallCtlDefProc 

( CtlRecHndl: 

def ProcMessage : 

param: 

PROCEDURE NotifyControls 

( mask : 

message: 

param: 

window: 
FUNCTION SendEventToCtl 

(targetOnlyFlag: 

WindowPtr : 

extendedTaskRecPtr Ptr) : Boolean; 
FUNCTION GetCtllD 

(theCtlHandle: 
PROCEDURE SetCtllD 

(newID: 
theCtlHandle: 
FUNCTION GetCtlMoreFlags 

(theCtlHandle: 
FUNCTION SetCtlMoreFlags 
{newID: 

theCtlHandle: 
FUNCTION GetCtlHandleFromlD 

( WindowPtr: 

ControlID: 
PROCEDURE SetCtlParamPtr 

(SubArrayPtr: Ptr); -.rj^'Wif-. 

FUNCTION GetCtlParamPtr: Ptr; ; r**p--:>i-^ 1 



CtlRecHndl; 
Integer; 
Longint) ; 

Integer; 
Integer; 
Longint; 
WindowPtr) ; 

Integer; 
WindowPtr; 



Jik-'-iJ'-'-: -. 

;.<3ij-' '-■■■■ 



\ S-t3»t»*yfvvi*: 






CtlRecHndl) : Longint?''- 






Longint; 

CtlRecHndl) ; 






CtlRecHndl) : Longint; ' t'"'^- 

Longint ; 

CtlRecHndl) : Longint;''^'''"' 

WindowPtr; 

Longint): CtlRGcHndl;-'" '^^'^ 



..-; -f-r.- -• :" 
= :t>«^.:'.- --' iff. J-;t " 

V .■^<: - - 

■ "'.If?-', '■v.lj" 



FUNCTION CMLoadResource 

( ResType: 

ResID: 



Integer; 

Longint) : Handle; 



: --.i :■>"• :-■ 
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PROCEDURE CMReleaseResource 

< Res Type: 

Res ID: 

PROCEDURE InvalCtls 

( HindowPtr : 

IMPLEMENTATION 
END. 



Integer," ; M-.i.-r. '^.J 

Longint) ; ^^ ;;> 

Longint) ; 



:■ ifC :.■ •.^r. -■■■ 



J-:'-'' 



Desk 



; File: Desk.p 



***********ir**i,i,i,ir 



'^^ 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 



UNIT Desk; 

INTERFACE 

USES Types, Events; 

CONST daNot Found 

notSys Window 

eventAction 

runAction 

undoAction 

cutAction 

copy Act ion 

pasteAction 

clear Action 

curs or Act ion 

undo 



copy 

paste 

clear 



PROCEDURE 

PROCEDURE 
PROCEDURE 

FUNCTION 

PROCEDURE 

FUNCTION 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 



DeskBootlnit; 

DeskStartUp; 

DeskShutDown; 

DeskVersion: 

DeskReset; 

DeskStatus: 

ChooseCDA; 

CloseAllNDAs; 

CloseNDA 

(refNuni: 
CloseNDAByWinPt r 

(theWindowPtr : 



= S0510 
= $0511 
= SOOOl 
= S0002 
= $0005 
= S0006 
= S0007 
= $0008 
= S0009 
= 50003 
= $0001 
= S0002 
= $0003 
= S0004 
= S0005 



Integer; 
Boolean; 



" i ■ . '.>'-'^ ■ ■" ■ 
., -ir* .!-. * j'X, 

■ , ^af 1 5^-- . •- - -;>»■ e P (^ - >. - ■ 

{error - desk accessory not found J 

{error - not the system window } 

{NDA action code - 

(NDA action code - 

{NDA action code - 

(KDA action code - 

(NDA action code - 

{NDA action code - 

(NDA action code - 

(NDAaction code - > 

{System Edit - edit type } 

(System Edit - edit type ) 

{System Edit - edit type } 

{System Edit - edit type ) 

(System Edit - edit type } 



■-trii,.l*v;' 






Integer) ; 
GrafPortPtr) 
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PROCEDURE FixAppleMenu 

(startingID: 
FUNCTION GetDAStrPCr: 
FUNCTION GetNumNDAs ; 
PROCEDURE InstallCDA 

(idHandle: 
PROCEDURE InstallNDA 

(idHandle: 
FUNCTION OpenNDA 

(idNurn: 



Integer) ; 

Ptr; 

Integer; 

Handle) ; 

Handle) ; 

Integer) : Integer; 



, i ■i^^t'*'-'*'-' 



l.i'.T'"^! 



7" '*%-,ju '*• 



Handle; 
Ptr) ; 

EventRecord; 
GrafPortPtr; 
Integer) ; 



PROCEDURE Rest All; ^tfife»:'3S^^-'?^-*^^e»^^^=^i=. 
PROCEDURE RestScrn; 
PROCEDURE SaveAll; 
PROCEDURE SaveScrn; 
PROCEDURE SetDAStrPtr 

(altDispHandle: 
stringTablePtr : 
PROCEDURE SystemCllck 

(eventRecPtr : 
theWindowPtr : 
f indWndwResult: 
FUNCTION SystemEdit 

(editType: Integer) :Boolean; 
FUNCTION SystemEvent 

(eventWhat : 
eventMessage; 
event When : 
eventWhere: 
event Mods : 
PROCEDURE SysteraTask:; 
PROCEDURE AddToRunQ ^. 

(headerPtr: 
PROCEDURE RemoveFromRunQ 

(headerPtr: 
PROCEDURE RemoveCDA 

(idHandle: 
PROCEDURE RemoveNDA 

(idHandle: 

IMPLEMENTATION 
END. 



S3?iy=:t,'5^^^«S3&"^*-^-'5£- ''S!^^" '^ ^-^ 



— . - •! 1 • r 



i'i -^i?!*; .-;ii' .1- 



,•.*•■ t « - 





Integer; 






Longint; 






Longint; 






Point; 






Integer) : Boolean; 




-T"-. 


;«n - ':!-^r■*.%; 






^^?ir-? >iotT.-^ ASt?i-- 


.XC'I""* 




ftG»,^% iVJSi' 


•.iv,';-j* 




^^^^' ft^a^^* A<-si> 


ufiovv 




' -a» iSa«i 


•.>at":?'; 




Handle) ; ,_..^ -m;^} 


-f'-iO'S'^ 




j-.T* ^-aa- 


-.«! C^E 




Handle) ; ^_^ f4V^y 


:*»ftCO$ 




I -' •**«? rjie-i w«i50ftf 


t-St^-Cvft 


^^VJ} 


j.ib« - j?&s «%iiif^t:^ 


^^w:i>* 


a^-V- 


3r«. • -^iS« aS3«<^> 


.sot^r-i 


;?^- ' 


t.feN«i :f;'5f? *»-?BifS'! 


i<:»(-J£ 


-,.«^ • 


-itsj' Jjfe^-i i>!*^?.V«' 


^.j-ni^.ic 


»q/- 


3ib« ■ 3AisK aw.'B'fiJ 


V^afiOi; 



; -l'»'«J-*^*M I 



.ftitC* 



i. --■- 



f. ?."?■■;* ' • .■ 



«--f 


. . ^ 


■■- 


Hr. 


. : .' 


>' ' 




r-' i 


r* ^.-■,1 • 




. - • 


..•\i^.-. . 









-, (3;^''- ■"' 






;:r«^ur :' t^ 


: ■" 
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Dialogs 



i'-\^ 



File: Dialogs. p ^^g, -^,,.9.,^ ., 

Copyright Apple Computer, Inc. 1986-89 

All Rights Reserved ^.^„.,, ^^^».,.^-.- ^j^i^tnMk'.UifiK} I .'■■.-^^i rslir^.-H :i>_ ;:^-•-.jv;' 



} 



UNIT Dialogs; 



INTERFACE 

USES Types, QuickDraw, Events, Controls, Windows, LineEdit; 



.:'^.'^^'' ■'■.i-;\^.' 



' \}tt-„:f\ ii^ ii-;>** 



CONST 



i'^v_y 



V_y 



badltemType 


= S150A 


newItemFailed 


= S150B 


itemNot Found 


= 5150C 


notModalDiaiog 


= S150D 


getlnitview 


= SOOOl 


getlnitTotal 


= S0002 


getlnitValue 


= S0003 


scrollLineUp 


= S0004 


scrollLineDown 


= S0005 


scrollPageUp 


= $0006, 


scrollPageDown 


= S0007, 


scrollThumb 


= S0008, 


button Item 


= 5000A, 


checkltem 


= $0008; 


radioltem 


= $0000; 


scrollBarltem - isia^ 


= $000D; 


userCtlltem 


= $00OE; 


St at Text 


= $000F; 


longStatText 


= SOOIO; 


editLine 


= $0011; 


iconltem 


= $0012; 


picltem 


= S0013; 


userltem 


= $0014; 


userCtlItem2 


= S0015; 


longStatText2 


= $0016; 


itemOisable 


= $8000; 


minlteraType 


= $000A; 


maxItemXype 


= $0016; 


ok 


= 50001; 


cancel .jm^jj ^ ijt'sw 


= S0002; 


inButton ' (^I'tf ^s 


= $0002; 


inCheckBox 


= S0003; 


inRadioButton 


= $0004; 


inUpArrow 


= S0005; 


inDownArrow 


= $0006; 


inPageUp 


- $0007; 


inPageDown 


= SOOOS; 


inStatText 


= $0009; 


inGrow 


= $000A; 
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-* - 



{error - } 500^!; - 

{error - } v- ■"' 

{error - ) 

(error - ) 

{Command — 

{Command - 

{Command - 

{Command - 

{Command - 

{Command - 

{Command - 

{Command - 

{Item Type - ] 

{ Item Type - } 

{Item Type - ] 

{Item Type - } 

(Item Type - } 

{Item Type - ) 

{Item Type - } 

{ Item Type - } 

{Item Type - } 

(Item Type - ] 

{Item Type - } 

{ Item Type - > 

{Item Type - ) 

{Item Type - } '*-.*• -'• ■ 

{Item Type Range - ) ^^V-i;-^:- ■ f- 

{Item Type Range - } *s.>.5-?:.;5 












5 K**4iil*bi^i-lM i6 



" y T' *''Si -"■■2 ; 



{ItemID - } 
{ItemID - ) 

{ModalDialog2 - Part code ) 

{ModalDialog2 - Part code } 

(ModalDialog2 - Part code } 

{ModalDialog2 - Part code } 

fHodalOialog2 - Part code } 

{ModalDialog2 - Part code } 

{ModalDialog2 - Part code ) 

{ModalDialog2 - Part code } 

{ModalDialog2 - Part code } 



^';,'rti^V'"- 
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inEditLine i^F.^Si'.vSS'S^"' 


= 


SOOOB 


inUserltem 


= 


SOOOC 


InLongStatText 


= 


SOOOD 


inlconltem 


= 


$000E 


xnLongStatText2 


= 


SOOOF 


inThumb 


= 


$0081 


okDefault 


= 


SOOOO 


cancelDe fault 


= 


S0040 


alertDrawn 


= 


S0080 



($IFC UNDEFINED atltemListLength } 
' atltemListLength = S0005; 



{ModalDialog2 - Part code ) - ■ ■ ■ 
{ModalDialog2 - Part code ) 
{ModalDialog2 - Part code ) 
iHodalDialog2 - Part code J 
{ModalDialog2 - } 

{ModalDialog2 - Part code } ■ -■- ■ 
{Stage Bit Vector , - } - ■- ■''^" 

{Stage Bit Vector - } 
{Stage Bit Vector - ) 

(AlertTemplate - Default number of Item 
Templates ) 



{SSETC atltemListLength := 0) 

{SENDC} 

{SIFC UNDEFINED dtltemListLength ) 



{DialogTemplate - Default number of Item 
Templates J 



dtltemListLength = S0008,- 

(SSETC dtltemListLength := 0} { - tor^sij 

(SENDC} i - idi-jf»j 

TYPE DialogPtr = WindowPtr; -.u'M 

ItemTempHndl = "ItemTempPtr; tfJ) 

ItemTempPtr = "ItemTemplatejii>>>; 



1 1 emTempl a t e 
RECORD 



itemID; 

itemRect : 

itemType: 

itemDescr: 

itemValue: 

itemFlag: 

itemColor: 



; ''.•..Hriii ' 






^'.^^ 



END; 

AlertTempHndl 
Alert TempPtr 
AlertTemplate 

RECORD 



i ~ Integer? 

( - Rect,- 

; - Integer; 
( - ,,- Ptr; 
( -. ,■; Integer; 
/ - ■ Integer; 

i . , Ptr; { pointer to appropriate type of color 
J ..- :. table } 

i - 5>^-< > '-■■•"■■f '- ^ ■ - 
vf:*>H - 

■ filUl^i' - 

-.eaoss ■> 



= "AlertTempPtr; 
= "AlertTemplate; 



3. 



.j:XJ.-t -- 



atBoundsRect : Rect; .- i 

atAlertlD: , . Integer; 

atStagel: j . ,, Byte; 

atStage2: , ^^rraJl Byte; 

atStage3: _ , ^^M «i^0m^r>.: 

atstage4: f Byte; 

atltemList: ( ARRAY [ 1 . .atltemListLength] OF ItemTempPtr; 

, :,fc«.> TT.^.*' - '>*>^i^v -=»,--< ""^1 terminated array ) 



U^^i'lA-. 



' 


■: ait-i ■ 


:T,i--- 








J -v>.-'V 


bt-t'l 


•T^ '■'.i^ 


' 


DlgTempHndl 


■'■ sirso 


= "DlgTempPtr; 


■ ^. *"■■"</*- ■ 


^ 


DlgTempPtr 


i ©-C 


= "DialogTemplate; 


M-^i'l 




DialogTemplate 


t v-Dt.' 


f-L-:i.'% -• ■.r.-Ji3<^J»=-'S'^.' 


vVO-l/JJ 


"* 


RECORD 




■■ j 


-.Ji^-: ,0-5 


- 




dtBoundsRect : Rect; 


■^K. -■■^ 


.^ 




dtVisible: 


Boolean; 


-.^-'■j'.^-i •: 


■ 
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dtRefCon: 

dtltemList : 



<^ 



■\^' 



v_y 



END; 

IconRecordHndl 
IconRecordPtr 
I con Record 

RECORD 



Longint; 

ARRAY Jl . .dtltemList Length) OF ItemTerapPCr; 
{ Null terminated array ) 



-. -^ci. 



IconRect : 
iconlmage: 



END; 



UserCtlltemPBHndl 
UserCtlltemPBPtr 
UserCtlltemPB . 

RECORD 

defProcParm; 
titleParm: 
param2 : 
paraml : 
END; 

PROCEDURE DialogBootlnlt; 
PROCEDURE DialogStarCUp 

(userlD: 
PROCEDURE DialogShutDown; 
FUNCTION DialogVersion : 
PROCEDURE DialogResGt; 
FUNCTION DialogStatus : 
FUNCTION Alert 

(alertTemplatGptr: 
filterProcPtr; 
FUNCTION CautionAlert 

( alert TemplatePtr ; 
filterProcPtr: 
PROCEDURE CloseDialog 

(theDialogPtr: 
FUNCTION DefaultFilter 

(theDialogPtr: 
theEvGntPCr: 
itemHitPtr: 
FUNCTION DialogSelect 

(theEventPtr: 
VAR resultPtr: 
VAR ItemHitPtr: 
PROCEDURE DisablGDltem 

{theDialogPtr: 
itemlD: 
PROCEDURE DlgCopy 

(theDialogPtr: 
PROCEDURE DlgCut 

(theDialogPtr: 
PROCEDURE DlgDelete 

(theDialogPtr: 
PROCEDURE DlgPaste 

(theDialogPtr: 
PROCEDURE DrawDialog 



"IconRecordPtr; ■'^-*«7'?bi:---v 
"IconRecord; 

Rect ; ■-_ sfj-i^ Ja t 

PACKED ARRAY [1..11 OF Byte; 

: L ?*«■*.*;:■. : 
''UserCtlltemPBPtr; 
"UserCtlltemPB; .^JtK- 



•<;-■*. J -IV:. 



lU- ■ '■-■■ 

; !■ . <: if'.*: -: 

;*■ ,' <,- ^- ' - 
•RZi.' , '. ' -. ' - '.- " 



Longint; { ? should this be a LongProcPtr? } 
Ptr; 

Integer; 
Integer; r^^« '' - *' ^^' 



Integer) ; 

Integer; 

Boolean; 






gV',';Jji2.'.' ..? ' •- '*■ ■'■ 



Alert Template; 
WordProcPtr) : Integer^^'^^ 

Alert Template; 
WordProcPtr) : Integer;*^"^^ . - ;."I«^ -'?t ■;«i>■;'v.vi-.^^-■ 
DialogPtr ) ; - ■^-'^ir; -a ''.- - 
i^;i>--^-^S^}. ; ■;■ - i. -NS '>. ; 
DialogPtr; 

EventRecord; ;*J-s^>.':f.5G 
IntPtr) : Boolean; '-*si^«.»i^* 

EventRecord; - <&'Kn**<S ja^wS 

WindowPtr; 

Integer): Boolean/^**''^-'' "'^ 



DialogPtr; 
Integer) ; 

DialogPtr) ; 

DialogPtr) ; 

DialogPtr) ; 

DialogPtr) ; 






'"■*;.■■"' 

■a;^.■■J:. 
I i i; :.:>'^!>.r ■:■ ^ ^ 
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{theDialogPtr: 
PROCEDURE EnableDItem 

(theDialogPtr: 
itemID: 
PROCEDURE ErrorSound 

(soundProcPtr: 
FUNCTION FindDItem 

{theDialogPtr: 
thePoint : 
FUNCTION GetAlertStage : 
FUNCTION GetControlDItera 

(theDialogPtr: 
itemID: 
FUNCTION GetDefButton 

(theDialogPtr: 
PROCEDURE GetDItemBox 

(theDialogPtr: 
itemID: r*«t» ». 
itemBoxPtr : 
FUNCTION GetDItemType 

(theDialogPtr: 
itemID: 
FUNCTION GetDItemValue 

(theDialogPtr: 
itemID : 
FUNCTION GetFirstDItera 

(theDialogPtr: 
PROCEDURE GetlText 

(theDialogPtr: 
itemID: 
VAR text; 
PROCEDURE GetNewDItem 

{theDialogPtr: 
itemTemplatePtr : 
FUNCTION GetNewModal Dialog 

(dialogTemplatePtr 
FUNCTION GetNextDItem 

(theDialogPtr: 
itemID: 
PROCEDURE HideDItem 

(theDialogPtr: 
itemID: 
FUNCTION IsDialogEvent 

(theEventPtr: 
FUNCTION ModalDialog 

(filterProcPtr: 
FUNCTION ModalDialog2 

{filterProcPtr: 
PRCXZEDURE NewDItem 

(theDialogPtr: 
itemID: 
itemRectPtr : 
iteraType : 
itemDescr: 
itemValue: 
itemFlag : 
itemColorPtr : 
FUNCTION NewModalDialog 



DialogPtr) t-./i ,,* ' < 

DialogPtr; 
IntegerJ ; 

VoidProcPtr) ; >Jt>-ie-^>rt'>s,'-i *- 
- ^— .ll'S.^iirr:".'" 
DialogPtr; 
Point) : Integer; 
Integer; ■- J3»i' 

DialogPtr; 

Integer) : CtlRecHndl; 

DialogPtr) : Integer; -fio;; 

DialogPtr; 

Integer; 3- e , . jfr'-'f^'Ai 

Rect) ; -. j;' 

DialogPtr; 
Integer) : Integer; 

DialogPtr; 
Integer) : Integer; 












: itaf-Z • '■- 



DialogPtr) : Integer; 



'. J.-^j 



■i^r-i 



DialogPtr; 
Integer; 
Str255) ; 



i.,:t.»^- <■■:■-. 



:''1-:hi '.; 



lAW.^/spa^ 'i9}^' : 1 1-5^^"-^*^ ■• ^■^■^i^'^^' - 



DialogPtr;--* ■ ts;%.-f%ihitAi 
ItemTemplate) f 

- - fA 
DlgTempPtr) : DialogPtr; j 

DialogPtr; -, *'3.r^\.^'- 'tf 
Integer) : Integer? 

DialogPtr; -,feiu.c*«,S-'?f»fr-'i 
Integer); ^,-^t^^J,a.:Mi- ; ; -r;**! 7* t 

Event Record) : Boolean? j^t^ -7 

WordProcPtr) : Integer;a^jj.= t 

WordProcPtr) : Longint; ^t 



DialogPtr; 
Integer; 

Rect ; 

Integer; 

Ptr; 

Integer; 

Integer; 

Ptr) : 



^--■"■sp'^t*----- 



->*^; ■ \-- . - -V 
• .■.;'*r:?-r"- '. 

J-; ■-. ■'■,■ ,>. 



i-^T- 



t:>' 
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(dBoundsRectPtr : 
dVisibleFlag: 
dRefCon: 

FUNCTION NewModelessDialog 

(dBoundsRectPtr: 
dXitle: 
dBehindPtr: 
dFlag: 
dRefCon: 
dFullSizePtr: 

FUNCTION NoteAlert 

(alertTemplatePtr: 

filterProcPtr: 
PROCEDURE ParamText 

(paramO: 

par ami: 

parani2 : 

param3: 
PROCEDURE RemoveDItem 

{theDialogPtr: 

itemID: 
PROCEDURE ResGtAlertStage; 
PROCEDURE SGllText 

(theDialogPtr: 
ItemlD: 
startSel: 
endSel: 
PROCEDURE SelectlText 

(theDialogPtr: 
itemlD : 
StartSel: 
endSel : 
PROCEDURE SetDAFont 

(fontHandle: 
PROCEDURE SetDefButton 

(defButtonlD: 
theDialogPtr: 
PROCEDURE SetDItemBox 

(theDialogPtr: 
itemlD: 
ItemBoxPtr; 
PROCEDURE SetDItemType 

(itemType: 
theDialogPtr: 
• itemID; 
PROCEDURE SetDItemValue 

(itemValue: 
theDialogPtr; 
itemID: 
PROCEDURE SetlText 

(theDialogPtr: 

itemID: 
theString; 

PROCEDURE ShowDItera 

{theDialogPtr: 
itemID: 

FUNCTION StopAlert 

(alertTemplatePtr : 



^^'^^: rnl j,,u,„7-,-. -.;. 


. ■•■(..;•:>'.•>.-!- .'■; 


Boolean; 


•:C::- p.-: ''-i. - 1 


Longint) : DialogPtr; ;,r.:-<. 


: ^::-i;:-i- '■■ -j.i ■: 


- i'f- f/j* 


. ^^.;■=X^^■^■rf" ■■ , ..'J■:!>■ 


Rect ; 




Str255; 


^^■'"i ■ 


DialogPtr; 




Integer; 




Longint; ' 




Rect) : DialogPtr; 




AlertTempPtr; 




WordProcPtr) : Integer; 




Str255; 




St r 2 55; 




Str255; 




Str255) ; 




DialogPtr; 




Integer) ; 




DialogPtr; 




Integer; 




Integer; 




Integer) ; 


' 


DialogPtr; 




Integer; 




Integer; 


= 


Integer) ; 




FontHndl) ; 




Integer; 




DialogPtr) ; 




DialogPtr; 




Integer; 




Rect) ; 




Integer; 




DialogPtr; - -■ 




Integer) ; 




Integer; 


• 


DialogPtr; 




Integer) ; 




DialogPtr; 




Integer; 




Str255) ; 




DialogPtr; 


- 


Integer) ; 




AlertTempPtr; 


. 
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f liter ProcPtr; WordProcPtr) : Integer; 
PROCEDURE UpdateDialoq 

(theDialogPtr : DialogPtr; ->■ 

updateRgnHandle : RgnHandle) ; 



.,- ' J.-- '.' ■ ;-- ' -''^ 
_^ r ■-■;■';'•"•■-.■ 

-.■■^A >" ;^.- ■■■«■ i-A.V ■■■' 



IMPLEMENTATION 
END. 
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Events 



vy 



; File: Events. p .t>H* 

Copyright Apple Computer, Inc. 1986-89 .^^rtisjoHJ 



All Rights Reserved 



•%Q\> M 5*« 



»©tti-5 "^sUt-lfc^i 






t'' 



*******«***»****^^^ 



UNIT Events; 



**************^*^^, 



^,V^ 



v_y 



INTERFACE 




USES Types; 




•54KJ-5 




CONST emDupStrtUpErr r^^rasr 


= S0601 


emResetErr r.»Tit oa-ni* 


= S0602 


emNotActErr itt,in^L 


= S0603 


emBadEvtCodeErr . el ;»J 


= 50604 


emBadBttnNoErr 


= S0605 


emQSiz2LrgErr 


- = S0606 


emNoMemQueueErr 


ia'm S0S07 


emBadEvtQErr - 


= S0681 


emBadQHndlErr 


= 50682 


nullEvt 


= soooo 


, ^^ mouseDownEvt . j:^p,^i ; 


- - SOOOl 


(.. *» mouseUpEvt .Tiit#««a','*l -_ 


^.-M- S0002, 


keyDownEvt - 


= S0003, 


autoKeyEvt ; 


= S0005, 


update Evt 


= S0006, 


activateEvt 


= S0008; 


switch Evt ; 


= S0009; 


deskAccEvt ,-.- 


= SOOOA; 


driverEvt 


= SOOOB; 


applEvt 


= SOOOC; 


app2Evt 


= SOOOD; 


app3Evt 


= SOOOE; 


app4Evt 


= SOOOF; 


mDownMask 


= S0002; 


mOf^lask 


= S0004; 


keyDownMask 


= S0008; 


autoKeyMask 


= S0020; 


updateMask 


= S0040; 


activeMask 


= 50100; 


switchMask 


= 50200; 


deskAccMask 


= 50400; 


driverMask 


= 50800; 


applMask 


= 51000; 


app2Mask 


= 52000; 


app3Mask 


= 54000; 


app'SMask 


= S8000; 


everyEvent 


- SFFFF; 


jcTickCount 


= 500; 


jcGetMouse 


= 501; 



r*** \ 

..i„!'5s?-t!a-.-.'-t-in'--.-'.?' - 



-.' >-''■.- 



(. :■:■■•-;- ■•;< 



{error - duplicate EHStartup Call } 

{error - can't reset error the Event Manager ) 

{error - event manager not active } 

{error - illegal event code ) 

(error - illegal button number J 

{error - queue size too large } 

{error - not enough memory for queue ) 

{error - fatal sys error - event queue damaged ) 

{error - fatal sys error - queue handle damaged } 

(Event Code - 

{Event Code - 

(Event Code - 

{Event Code - 

(Event Code - 

(Event Code - 

(Event Code - 

{Event Code - 

(Event Code - 

{Event Code - 

(Event Code - 

{Event Code - 

(Event Code - 

{Event Code - 

(Event Masks - 

{Event Masks - 

(Event Masks - 

{Event Masks - 

(Event Masks - 

{Event Masks - 

(Event Masks - 

{Event Masks - 

{Event Masks - 

{Event Masks - 

{Evert Masks - 

{Event Masks - 

{ Event Masks - 

{Event Masks - 

{Journal Code - TickCount call } 

{Journal Code - GetMouse call } 






ft,..'-;J-«.' 



»*»ic>o?! 



;A;m 



-'J'l -'kc. 






■?,, 
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^^-7-jggr. jcButton -:^-^^via5~i■:":^'*;^"•~v-^ = $02; 

jcEvent = 504; 

activeFlag = $0001 

changeFlag = $0002 

btnlState = S0040 

btnOState = 50080 

appleKey = $0100 

shiftKey = 50200 

capsLock = $0'100 

optionKey = 50800 

controlKey = 51000 

keypad = S2000 



, {Journal Code - 
{Journal Code - 
(Modifier Flags 
{Modifier Flags - 
{Modifier Flags 
{Modifier Flags 
{Modifier Flags 
{Modifier Flags 
{Modifier Flags 
{Modifier Flags 
{Modifier Flags 
{Modifier Flags 



Button call ) 

GetNextEvent and EventAvail calls) 

- set if window being activated ) 
set if active wind changed state ) 

- set if button 1 up ) 

- set if button up ) 

- set if Apple key down } 

- set if shift key down } 

- set if caps lock key down) 

- set if option key down ) 

- set if Control key down ) 

- set if keypress from keypad 



TYPE Event RecordHndl = "Event RecordPtr; 

EventRecordPtr = "EventRecord; 

EventRecord ■» 

RECORD 

CASE Integer OF 

0; (what : Integer; 
i Ps5 (;b.-ifl.:fWK? ^- message: Longint; 






ii'- -71* K. 



when: Longint ; 
where; Point; 
modifiers: Integer 

) ; yo'i-t^ 
(wrahat: 'rsj 
wmMessage: -,^5 
wmWhen: ^..i)-"'i 
wmWhere: - ^i^I 
wmModifierss.-S; 
wmTaskData : jjs ! 
wmTaskMask: x«l 
wmLastClickTick : 
wmClickCount : 
wmTaskData2 r-..:) ■ 
wmTaskData3Sir3} 
wmTaskData4 ;=•» i 
wmLastClickPt : 



{ event code ) 

{ event message } 

'-;>5it ticks since startup ) 

{ mouse location ] 

; { modifier flags ) ^ 



END; 



■•;'7'. .■.. 



: .->■)■■■-■-/•; 









- *fca<'j 


Jrrsv^Ci 


^.fv.■■,:-; '. 


PROCEDURE 


EMBootlnit; 




s^i^O 


■ir, <r^y ! 


i\l«V-UC ■■ 


PROCEDURE 


EHStartUp 




*Jr«^£- 


sat^-'-'S 1 


■l-'^S^'it '■ 




(dPageAddr : 


Integer; 


at^ X 


ymrtti I 


•^^M'^^ ^ 




queueSize: 


Integer; 


*3?£-Vf 


j.'avJ" ! 


■itr^y^T - 




xHinClamp: 


Integer; 


-**-6M 


,Jrt»«rr-f J- 


ii-O^fC - 




xMaxClamp: 


Integer; 


1«?K 


:tn^v« \ 


•■.-:'? ~-2 - 




yHinClamp: 


Integer; 


' ;^t*^. 


.jis- :,= 


'.;.^.li:-^i - 




yMaxClamp: 


Integer; 


- fM ^■^'. 


3!^'-i'j 


vfs5-r^;. - 




user ID: 


Integer) ; 


»h9M 


yrv^y 


^t^■^^ - 


PROCEDURE 


EMShutDown; 




i-kZir^ 


'jK.-a; 


,,--.:"":;',5 - 


FUNCTION 


EMVersion: 


Integer; 


J.i'M^ 


.;J*^^•?^ > 


v-.-v..^t:a -• 


PROCEDURE 


EMReset; 




^'Ji*^'^ 


:r..i^ i ■ 


-..."■c^-.f; ' 


FUNCTION 


EMStatus: 


Boolean; 


zA^al^ 


V-:0'C'-<: 


■.F-OOf.::^ 


FUNCTION 


Button 






*V.I • 


...•;^.vi^^ -■ 




(buttonNum: 


Integer) : 


Boolean; ->-.•?'- 


-.-?X^■i -^ 


FUNCTION 


DoWindows : 


Integer; 


•^-♦ft*^ 


T,-.-..-a! 


■.7>m>-,i -^ 


FUNCTION 


EventAvail 




^:i«e»' 


•r-s-. : 


Vf'i-' ■ 




(eventMask : 


Integer; 


',/:-; I 


.•< i iic-'. ■ 


:>c^ - 



Integer; 

Longint; 

Longint; 

Point; 

Integer; 

Longint; (TaskMaster return value.) 

Longint; {TaskMaster feature mask.) 

Longint; 

Integer; -.-c..'-^^-- ' 

Longint; »'=.:■!- ■ - " 

Longint; •v>'i., 

Longint; **.".'- - 

Point; ) ; '-'''^^ ' ' ' 












VAR eventPtr: EventRecord) ; Boolean; 
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^^ 



FUNCTION 



FUNCTION 

FUNCTION 



FUNCTION 



FUNCTION 



FUNCTION 



FUNCTION 



Integer; 
Integer; 
Integer; 
Integer; 
Integer) ; 

Integer; 
Integer) : 
Long in t; 
Longint; 



Integer; 



PROpEpURE FakeMouse 

(changedFlag: 
modLatch: 
xPos: 
yPos : 

ButtonStatus 
FlushEvents 

(eventMask : 
stopMask : 
GetCaretTime: 
GetDblTime: 
PROCEDURE GetMouse 

(VAR mouseLocPtr: Point) 
GetNext Event 

(eventMask : Integer; 

VAR eventPtr: EventRecord) : Boolean; 
GetOSEvent 

(eventMask: Integer; 
VAR eventPtr: EventRecord) : Boolean; 
OS Event Avail 
^ (eventMask: 
VAR eventPtr 
PostEvent 

(eventCode: 
eventMsg; 
PROCEDURE SetEventMask 



~:^iiCr-i^ix-^\--.^^^-'7^^:^^-^^ 



[--•»•>••«-: «. 



?«■ 5*(f ;, .-^ri 



(-♦ Avne--, lah* =»»•»- • 



• S'i"' 



Integer; 

EventRecord) : Boolean; 

Integer; 
Longint) : Integer; j.,^^ 



(sysEventMask: Integer); ., 
PROCEDURE SetSwitch; .-.-^-. -..^Sity. - -^"S;;; 



FUNCTION 



StillDown 

(buttonNum: 
WaitMouseUp 

(buttonNum: 
TickCount: 

GetKeyTranslation: Integer; 
PROCEDURE SetKeyTranslation 

tkTransID: 
PROCEDURE SetAutoKeyUmit 

(newLimlt: Integer) 






FUNCTION 

FUNCTION 
FUNCTION 



Integer) 

Integer) 
Longint; 



Boolean^ .-^;. 
Boolean; 



Integer) 



IMPLEMENTATION 
END. 
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Fonts 



********************************************* 

File: Fonts. p 



Copyright Apple Computer, Inc. 198S-89 
All Rights Reserved 






1 :r .-0I-- -I' 

,j p. >; ;.-■■ ■■ -■ 



******************************************** 



* : >,t ',■1'? i J- Ji-^.*''".'**"-''^ >'-■'.■*; 



UNIT Fonts; 

INTERFACE 

USES Types, QuickDraw; 

CONST fmDupStartUpErr 
fmResetErr 
fmNotActiveErr 
fmFamNotPndErr 
fmFontNtFndErr 
fmFontMemErr 
fmSysFoncErr 
f mBadF amNu mE r r 
fmBadSizeErr 
fmBadNameErr 
fmMenuErr 
fmScaleSizeErr 
newYork 
geneva 
monaco 
Venice 
london 
at hens 
sanFran 
toronto 
Cairo 
losAngeles 
times 
helvetica 
courier 
symbol 
taliesin 
shaston 
baseOnlyBit 
notBaseBit 
memOnlyBit 
realOnlyBit 
anyFamBit 
anyStyleBit 
anySizeBit 
memBit 
unrealBit 
apFamBit 
apVarBit 



SlBOl 
$IB02 
$IB03 
$1B0<1 
S1B05 
$1B06 
SIB07 
51B08 
51B09 
SI BOA 
SIBOB 
$1B0C 
S0002 
S0003 
$0004 
S0005 
S0006 
S0007 
$0008 
$0009 
$000B 

soooc 

S0014 

S0015 
S0016 
S0017 
S0018 

SFFFE 
S0020 
S0020 
$0001 
S0002 
S0004 
$0008 
$0010 
$0001 
S0002 
$0004 
$0008 






^'■■^f'-'-'r.i 



: na.-?^. .-■••«. 



i.t --'-.;-■ 



'■I 



rt ■. Ji ,. ~. \ ^ft 1 
;:l;■^:,J■' ■ 



(error - duplicate FMStartUp call ) 

{error - can't reset the Font Manager ) 

{error - Font Manager not active } 

(error - family not found } 

(error - font not found } 

(error - font not in memory } 

(error - system font cannot be purgeable 

(error - illegal family number 1 

(error - illegal size ) 

(error - illegal name length ) 

(error - fix font menu never called } 

(error - scaled size of font exeeds limit 

(Family Number - } 

(Family Number - 1 

(Family Number - } 

(Family Number - ) 

{Family Number - } 

(Family Number - } 

(Family Number - ) 

(Family Number - } 

(Family Number - } 

(Family Number - ) 

(Family Number - ) 

(Family Number - } 

(Family Number - } 

{Family Number - } 

(Family Number - ) 

(Family Number - ) 

(FamSpecBits - 1 

{FamStatBits - ) 

(FontSpecBits - ) 

(FontSpecBits - } 

(FontSpecBits - ) 

(FontSpecBits - } 

(FontSpecBits - } 

(FontStatBits - ) 

(FontStatBits - } 

(FontStatBits - ) 

{FontStatBits - } 



sj 



-TV. 
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K^ 



purgeBit 
notDlskBit 
notFoundBit 
dontScaleBit 

TYPE FontStatRecHndl 
Font Stat RecPtr 
FontStatRec a 

RECORD 

resultID: 
resultStats: 
END; 

PROCEDURE FMBootlnit; 
PROCEDURE FMStartUp 

(userlD; 
dPageAddr: 
PROCEDURE FHShutDown; 
FUNCTION FMVersion: 
PROCEDURE FMResGt; 
FUNCTION FMStatus: 
PROCEDURE AddFamily 

(famNura: 
f amName : 
PROCEDURE AddFontVar ,««,^.^,»«, 
(fontHandle: 
newSpecs : 
FUNCTION ChooseFont 

(currentID; 
f amSpGCs : 
FUNCTION CountFamilies 

{farnSpecs; 
FUNCTION CountFonts 

(dGslredlD: 
f ontSpGcs : 
FUNCTION FamNum2 ItemI D 

(famNum: 
FUNCTION FindFamily 

( f amSpecs : 
positionNum: 
f amName: 
PROCEDURE FindFontStats 

(desiredlD: 
font Specs : 
positionNum; 

VAR resultPtc-X, 
PROCEDURE FixFontMenu 

(menuID: , _. . 

1 7''.' "S 

startinqlD: , 
famSpecs; 

FMGetCurFID: 
FMGetSysFID: 

FMSetSysFont 



SOOIO 
S0020 

S8000 
$0001 






FUNCTION 
FUNCTION 
PROCEDURE 

FUNCTION 



FUNCTION 



I 



-J 14 »i-3IK 

(newFontID: , . 
GetFamlnfo 

(famNum: , ,. 
f amName: ,^ 
GetFamNum 



{FontStatBits - ) 

{FontStatBits - } 

{FontStatBits - ) 

{Scale Word - } 



"FontStatRecPtr/ -^i fj.tt'? 
^FontStatRec; ; ;j^.-»»,5n>' 



Font ID, • 
Integer; 



Integer; 
Integer)*; 

Integer; 

Boolean; 

Integer; 
Str255) ; 

FontHndl; 
Integer) ; 






; 2 1 fr.-- ■'■ 



, ^y^"' "■.:■■ - 

,"r^^.,Tv^S'. SI.."" 



>*^r:^55^K^3F^^S5a^~'?:'-rfi«-3-."af?--.-"--«^-t :- - 



Font ID; 

Integer) : FontID; 

Integer) : Integer; 



FontID; 

Integer) : Integer; 

Integer): Integer; ^*..*..k„» 

Integer; 
Integer; 
Str255> : Integer; 






'.n- 



FontlD; 

Integer; ^,^,^1 
Integer; -, 
FontStatRec) ; 

Integer; ..^^tj 
Integer; ,,.^.^^^ 

Integer); .^^^«,. 
^°"tID;„,,^^,„, 
FontID;.. ^^^^^ , 

FontID); ... _\^-^,- 

Integer; 

Str255) : Integer; 






:-^j 



r *:<■!<■ -.-^i 



>: •.■*rt -. ^i*L 



•v>-U.. -v^ 
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PROCEDURE 
PROCEDURE 

FUNCTION 
PROCEDURE 



PROCEDURE 
PROCEDURE 



( f amName : 
InstallFont 

tdesiredID: 

scaleWord: 

InstallWithStats 

{desiredID: 

scaleWord: 

resultPtr : 

IternID2FamNum 

(itemlD; 
LoadFont 

(desiredID: 
font Specs : 
positionNum: 
VAR resultPtr: 
LoadSysFont ; 
SetPurgeStat 

[theFontID: 
purgeStat : 



IMPLEMENTATION 
END. 



t Str255) : Integer; -" ' 

: FontlD; - •;'■ i- ^ .■■ ''''^ - 
Integer); "'■' .i'''-'": ^ 



Font ID; 
Integer; 
Ptr) ; 






Integer) : Integer; 

Font ID; 
Integer; 
Integer; 
FontStatRec) ; 



FontID; 
Integer) ; 






; vi!^?. ■ <■ i: ■- 

■. --■"-■.;-.U JA ,-■..•,,-. ■ 






: 5( ..'i '■■■:- - 
■/vJj • ,.. -■:>!■■ 
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GSOS 



; File: GSOS.p 






: Copyright Apple Computer, Inc. 1986-89 
; All Rights Reserved 






■tlr*************************-)!***********-^**** 



• : : jfcTi' 



UNIT GSOS; 

INTERFACE 
USES Types; 



CONST 



readEnable 

writeEnable 

fileln visible 
backupNeeded 

renameEnable 

destroyEnable 

startPlus 
eofMinus 

markPlus 



= $0001; 

= S0002; 

= $0004; 
= $0020; 

= S0040; 
= $0080; 

= SOOOO; 

= SOOOl; 
= S0002; 






\xi ■■>:■■ ■ '■!■ ■ 



(access - read enable bit: CreateRec, 
OpenRec access and requestAccess fields ) 
{access - write enable bit: CreateRec, 
OpenRec access and requestAccess fields ) 
{access - Invisible bit } 
{access - backup needed bit: CreateRec, 
OpenRec access field. (Must be in 
requestAccess field ) ) 

{access - rename enable bit: CreateRec, 
OpenRec access and requestAccess fields } 
{access - destroy enable bit: CreateRec, 
OpenRec access and requestAccess fields ) 
{base - > setMark = displacement ) 
{base - > setMark = eof - displacement } 
{base - > setMark = mark + displacement 1 
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markMinus 
cacheOf f 

cacheOn 






= S0003; 
= SOOOO; 

= SOOOl; 



badSystemCall 
invalidPcount 
gsosActive 



.^;j -^ ■ = SOOOl; 



{SIFC UNDEFINED devNotFound } 



devNot Found 



^.„ ,i:-...^ ^^i.^. 



toi'frtifc? >6 j:ro •f^iust^^a- 



invalidOevNum 

drvrBadReq 

drvrBadCode 

drvrBadParm 

drvrNotOpen 

dr vr P r i o rOpen 

irqTableFull 

drvrNoResrc 

drvrlOError 

drvrNoDevice 

drvrBusy 

drvrWrtProt 

drvrBadCount 

drvrBadBlock 

drvrOiskSwitch 

drvrOffLine 

badPathSyntax 

invalldRefNum 



pathNotFound 
{$SETC pathNc 
{SENDC} 



:Q ' 


= Sll,- 


{error - 




= $20; 


(error - 




= $0021; 


{error - 


I 


= S0022; 


(error - 


t=i ^^' 


= S0023; 


{error - 


-.•aiv* 


- S0024; 


(error - 




= $0025; 


{error - 


- I'-'i ,t«v ■ 


= $0026; 


{error - 




= $0027; 


(error - 




= S0028; 


{error - 


to 


= $002 9; 


(error - 




= $0023; 


{error - 




= $002C; 


(error - 


t,l e^ri 


= $002D; 


{error - 


? <««T 


= S002E; 


(error - 


5 i^/i'-^- 


- $002F; 


(error - 


'-3« Vj!>5 


= $0040; 


{error - 




= S0043; 


{error - 




vfe* ^TH**.- il*!* 


- Tt©:f'T-- 


pathNotFound } 


(error - 




= $44; 




mnd : = 


0} 


r.'^ittiff'T} 



{base - > setMark = mark - displacement } 

{cachePriority - do not cache blocks 

invloved in this read I 

{cachePriority - cache blocks invloved in 

this read if possible } 

{error - bad system call number } 

(error - invalid parameter count ( ''■ " 

(error - GS/OS already active ) . : -. 

(error - device not found ) ,-:^f .■ 

•.'■v",=i,/ 
{SSETC devNotFound := OJ 
{$ENDCJ j:.;atiC-»aii.;'^V'f.^ '•^■. . ' : ' ■' - 



invalid device number } 

bad request or command } 

bad control or status code ) 

bad call parameter ) .-^^f.. ■--- 

character device not open ) 

character device already open } 

interrupt table full ) 

resources not available } '^' ■■ ■ 

I/O error } 

device not connected } 

call aborted, driver is busy } 

device is write protected ) 

invalid byte count } 

invalid block address } ^-'■. - 

disk has been switched } 

device off line/ no media present) 

invalid pathname syntax ) ■:«-:&.•'.'- 

invalid reference number ) 

subdirectory does not exist > -^ '-• 



volNotFound 



»S'&^'i*.f.v.if«Jt*i h:imilS 



ios MttUi ¥^>tv' 



$0045; 



{error - volume not found } 



■^ "' 



fir^. ^^s r'-i- ■"•.- 



($IFC UNDEFINED fileNotFound > {error - file not found ) 

fileNotFound = $0046; 

{SSETC fileNotFound := 0} »p^^>a^f.'i. 

{$ENDC} . tj.^^-ii.^i.jr f,s xi£. x-er* ' wr?» * ^ftTrr,*?. V^«S5* ■' /ilTr'-S.. 1 •- - 

dupPathname = $0047; {error - create or rename with existing --' 

name 1 . • ' 

volumeFull = $0048; (error - volume full error } - ' ' - " 

volDirFull i.,^L^.\ = S0049; {error - volume directory full } 

badFileFormat , .^^j,,^j ,^ . = ,§Q04A; (error - version error (incompatible file 

1 {*!fT>.\ i ilii '"6.'3'.^3.2**'*-*i-/;'v ;t<!^>1irtA._-jfrSJ - - format) ) 

{$IFC UNDEFINED badStoreType \ (error - unsupported (or incorrect) storage 

f ^J^-. type ) ,,'(■'■ -;" 
badStoreType , =; $0048; 

-f •^'.t^i-Z (SSETC badStoreType := 0) " - " ■ ■' ' 

; &>SC- .•■'.'. ■- (SENDC) -..■■■■:.-'■. -. ■, . : 



VJ 
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iSIFC UNDEFINED eof Encountered ) 

eofEncountered = $004C 

tit tBi'^rtlVni *^'^>i>^ .*i*J<-'^ ■ K'^i 

outOf Range ^j>.«« :'■:-- = $004D 

invalidAccess-r^i.-* \^,1*K«-,' = $004E 

buffTooSmall s^/ :■■:>«- v^» = SOO-IF 

fileBusy = S0050 

dirError ■ ^r,->5 = 50051 

unknownVol = S0052 



(error — end-of-file encountered ) 

^{SSETC eofEncountered := 0) 

' {SENDC} 

■■•'■■ 

(error - position out of range } 

(error - access not allowed } 

(error - buffer too small } 

(error - file is already open 1 

{error - directory error } 

(error - unknown volume type } 



-JVi"-": 



(SIFC UNDEFINED paramRangeErr 1 
paramRangeErr = 50053; 

outOfMem : i^JtsJif^Z- = $0054; 
dupVolume ^ Km-; a.i.fv* = S0057; 
notBlockDev « > «_.>v« = 50058; 



(error - parameter out of range ) 

{5SETC paramRangeErr := 0} ^ 
(SENDC} 

- r c ft.'' f. •* 

(error - out of memory ) 

(error - duplicate volume name ) 

{error - not a block device } 



-:r-- >i": 



(SIFC UNDEFINED invalidLevel Jw^'X 
invalidLevel .,,..- = $0059; 

damagedBitMap timti *? = SOOSA; 

badPathNames *iv* .Vs^ " S005B, 

notSystemFile r V**.-- = $005C, 

osOnsupported s ■anx*'^^ = $0050; 

{$IFC UNDEFINED stackOverf low } 
stackOverflow i^^ih^ = 5005F; 



{error - specifield level outside legal 
range ) - ■ ' 



: ■• 



{5SETC invalidLevel := 0) 
{SENDC} ■•^■— - 






(error - block number too large ) 

(error - invalid pathnames for ChangePath ) 

{error - not an executable file } 

(error - Operating System not supported } 

{error - too many applications on stack } 

(SSETC StackOverflow := 0) ' "' ''1,..' 
{SENDC} '■• - -,-' -^^ '''■''■ ■*•■ ' 



dataUnavail 


= 


SOOSO, 


endOfOir \ h:;:'« 


= 


S0061, 


InvalidClass f h^ 


= 


$0062. 


resForkNotFound 


= 


50063 


invalidFSTID 


= 


50064 


proDOSFSID 


= 


50001 


dos33FSID , it.l.s' (wfcT 


= 


S0002 


dos32FSID 


- 


50003 


dos31FSID 


= 


$0003 


applellPascalFSID 


= 


$0004 
$0005 


mfsFSID ,... .. , 


= 


hfsFSID 


= 


$0006 


lisaFSID 


= 


50007 


appleCPMFSID . -. -f.^.-j.'-. " >^ 


= 


50008 


charFSTFSID 


= 


$0009 


msDOSFSID 


= 


SOOOA 


highSierraFSID ,5 


= 


SOOOB 


iso9660FSID 


= 


5000C 


appleShareFSID 


= 


SOOOD 



{error - Data unavailable ) 

(error - end of directory has been reached 

} 

{error - invalid FST call class } 

{error - file does not contain required 

resource } 

(error - error - FST ID is invalid } 

(fileSysID - ProDOS/SOS } 

{filGSysID - DOS 3.3 } -rr-^vrt.- '^ 

(fileSysID - DOS 3.2 } 

(fileSysID - DOS 3.1 } ''" ""' ' * 

(fileSysID - Apple II Pascal } 

{fileSysID - Macintosh (flat file system) } 

(fileSysID - Macintosh (hierarchical file system)) 

(fileSysID - Lisa file system ) 

(fileSysID - Apple CP/M ) 

(fileSysID - Character FST } 

(fileSysID - MS/DOS } '■"" ' 

(fileSysID - High Sierra } 

(fileSysID - ISO 9660 ) 

(fileSysID - ISO 9660 ) - . 
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^y^^ 



-■■v^ 



characterFST 
ucFST 

onStack 

restartable 

seedling 

standardFile 

sapling 

tree 

pascalRegion 

extendedFile 

direct oryFilG 

minor RelNumMask 
majorRelNumMask 
finalRelNumMask 
isFileExtended 

TYPE GSString255Hndl 
GSString255Ptr 
GSString255 

RECORD 

length; 
text: 
END; 

GSString255HndlPtr 

GSString32Hndl 

GSString32Ptr 

GSString32 

RECORD 



': V^ 



length: 
text: 



= S4000; 
= S8000; 

^ S8000; 

-- $4000; 

'- SOOOl; 
■■ SOOOl; 

S0002; 

S0003; 

S0004; 

50005; 

SOOOD; 

50 OFF; 
S7F00; 
$8000; 
58000; 



(FSTInfo. attributes - character FST } 
(FSTInfo. attributes - SCM should upper case 
pathnames before passing them to the FST } 
{QuitRec. flags - place state information 
about quitting program on the quit return stack ) 
{QuitRec. flags - the quitting program is 
capable of being restarted from its dormant 
memory ) 

(storageType - standard file with seedling 

structure } 

(StorageType - standard file type (no 

resource fork) } 

{StorageType - standard file with sapling 

structure } 

{StorageType - standard file with tree 

structure } 

(StorageType - UCSD Pascal region on a " 
partitioned disk } 

(StorageType - extended file type (with 
resource fork) ) 

{StorageType - volume directory or 
subdirectory file ) 
(version - minor release number } 
{version - major release number ) 
{version - final release number > 
(GetDirEntryGS - } 



= "GSString255Ptr; 
= '■GSString255; 



Pil'Sk^n^^-^ 






Integer; (Number of Chars in text field} 
PACKED ARRAY [1..255] OF CHAR; 

"GSString255HndU -- ;■■ :-^'3^?*^i.p-*-- 

'•GSString32Ptr; 
^GSString32; 



.'i''"--^. . 



;23»j»^'tt^c^- - 






END; 



ResultBuf255Hndl 

ResultBuf255Ptr 

ResultBuf255 

RECORD 

bufSize: 
bufString: 

END; 

ResultBuf255HndlPtr 

ResultBuf32Hndl 
ResultBuf32Ptr 



Integer; (Number of characters in text field } 
PACKED ARRAY [1..32] OF CHAR; 

"ResultBuf255Ptr; 

'■ResultBuf255; 



■,<:*,i^»5.;(X3' •* 


4"vil !■■■-' 


Integer; 
GSString255; 


"^tv-: "-,■! 


i isTSt^aiTfit^;^.^ .■^■u«*n"*i 




ResultBuf255Hndl; , ,.. 




•ResultBuf32Ptr; 

•ResultBuf32; 






■ 
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ResultBuf32 

RECORD 



A'- 



END; 



iM:W - 5^ ^-■'-' ■!. ? -J " » ■ ■* ' *^ ' '- '- * 

bufSize: , ,, Integer; 

bufString:^ ^_., GSString32; 






■;?.■" 



= ''ChangePathRecGS; 



Change? athRecPtrGS 
ChanqePathRecGS - 

RECORD 

pCount : 
- -- ' pathname : 



-, ;?!■»;':; 



? END; 

CreateRecPtrGS 
Create Re cGS 

RECORD 



_ Integer; . 

___^^ GSString255Ptr; 
newPathname: '' _ qsstring255Ptr; 



= '^CreateRecGS; . ,, 



.'■i 0>-"H' 



pCount : 
pathname: 
access : 
fileType: 
auxType; 









Integer;.. ^,. ,^ ,' . ^.vvPjJJ 

GSString255Ptr; 
Integer; 

Integer; 



Longxnt; 
storageType: ^ _ Integer; 



eof : 






Longint; 






END; 



resourceEOF: ^^^_^_^.Longint? .^^t,*} - 



DAccessRecPtrGS 

DAccessRecGS 
RECORD 

pCount: 
devNum: 
code: 
list: 



= "DAccessRecGS; ,»^,^ j ^ vav'V 



Integer; 
Ptr; 



END; 

DevNumRecPtrGS 
DevNumRecGS 

RECORD 



requestCount : 
transferCount : Longint; 



Longint; ^^^_^^^^ 



= "DevNumRecGS; 



■■^W -:^-"-S,r 



pCount : 
devName : 

devNum: 



H^n7^^ - Integer; 
^^.■: r# Xtt GSString255Ptr; 
Integer; 



END; 

DInfoRecPtrGS 
DInfoRecGS 

RECORD 



= "DInfoRecGS; 






\xr:>-'- 



iti::^^^.. ■■■•--.'■ 
■ii.i^\-. . '■ ■'■■ '■ 
i-. ::>--■• '►:.-■'■ 

; ■fir- ..*M 






.■-SI ■• 



.-J' 



.-^Jt;. 



ii-r :-> 






IfenlK.-" 



'4"'. 



pCount : 

devNum: 

devName : 

characteristics: 

totalBlocks: 

slotNum: 

unitNum: 

version ; 

devicelD; 



Integer; { minimum = 2 ) , !i>-. c" 
Integer; 

GSStrlng32Ptr; 

Integer; _..^.,^. .. .j-.'s-. 

Longint; 

Integer; 

Integer; 

Integer; 

Integer; 
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" s^ 



- lj' 

DIORecPtrGS !. ' 
DIORecGS 

RECORD 



headLink : . -^-^^^ Integer ; 

forwardLink: ---.^^l Integer,- 
extendedDIBptr: Longint; 



T'-i --> .^-t 



"DIORecGS; 



;.,-■?..> 7*- ■ft.;-.'-,.- 






pCount: 
devNum: 
buffer: 
requestCount : 






SNQ; 



Integer; 

Integer; 

Ptr; 
i-ift*-: Longlnt; 
startlngBlock^^^i_^<' Longint; 
blockSize: '.Bal;-}'' Integer; 
transferCount: vic^*.; Longint; 



c;:^ j^; 






DirEntryRecPtrGS 
DirEntryRecGS 
RECORD 



-r'ii.- 



"DirEntryRecGS; 



pCount : 
refNum: 
flags: 
base: 



displacement; . (iJ?a la-»-m* 
name: ;ii5gi®/ft; 






f : V^ 



J. ■ - 



END; 



entryNum: 

fileType: 

eof : 

blockCount : 

createDateTime : 

modDateTime: 

access: -/fi-S'- 

auxType: 

fileSysID: 

option List: 

resourceEOF: 

resourceBlocks: ■.;W h^ 



Integer; 

Integer; 

Integer; 

Integer; 

Integer; 

Ptr; 

Integer; 

Integer; 

Longint; 

Longint; 

TimeRec; 

TimeRec; 

Integer; 

Longint; 

Integer; 

ResultBuf255Ptr; 

Longint; 

Longint ; 



■ ; ■'I ' i' 



',<!•" . 






t.-.VJ''-', 



ExpandPathRecPtrGS 
ExpandPathRecGS 
RECORD 

pCount : 



= "ExpandPathRecGS; 



;S£>**?*i9^ --- 



!r ?**:•'>:■. . 



inputPath: 
outputPath: 
flags: Integer; 






Integer; 

GSString255Ptr; 

ResultBuf255Ptr; 



END; 
FilelnfoRecPtrGS 
FilelnfoRecGS 

RECORD 



= "FilelnfoRecGS; 



i,»-i ; . -■■* f.5: 



iniT 



pCount : 

pathname: 

access: 

fileType: 
auxType : 
storageType: 
createDateTime: 



f*;,^ ■.'^■■^iij 'sr-t 



j& 



'; L> 
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modDateTime: 
optionList : 
eof : 

blocksUsed: 
resourceEOF: 
resourceBlocks : 



TimeRec; ■:■■-•.-"'>*'- 

Longint; ^^'-'--^ '•-''' '■'■' 
•?P Longint; 

Longint; {must be for SetFilelnfo) 

Longint; {must be for SetFilelnfo} 

Longint; {must be for SetFilelnfo) 



END; 



FormatRecPtrGS 
Format Re cGS 

RECORD 



= "Forma tRecGS; -{^ i 






pCount : 
devName : 
volNamG : 
fileSysID: 
reqFileSysID: 



\Zi\ 



END; 



■ 'Integer; -"■•"■--•'-.« -- 

GSString32Ptr; {device name 
GSString32Ptr; {volume name 
Integer; { file system ID } 
Integer; ( in; ) 



pointer) 
pointer ) 



FSTInfoRecPtrGS 
FSTInfoRecGS 
RECORD 



= "FSTInfoRecGS; 



pCount ; 

fstNum: 

fileSysID: 

f stName: 

version: 

attributes : 

blocJcSize: 

maxVolSize: 

maxFileSize: 



END; 



:' ' i\i <'*' '■"'i- 



Interrupt RecPtrGS 
InterruptRecGS 
RECORD 



= "InterruptRecGS; 

pCount : Integer; yss* 
intNum: Integer; 





■ -iK-^^i 


Integer; 


:.]■■'**- 


Integer; 


.".'■' -- 


Integer; 


■ f-rt C'J 


ResultBuf 255Ptr; '-''^ '■■ 


Integer; 


-.-i^i---" 


Integer; 


■T'lSJ"^"-^;"!.' 


Integer; 


■«<-^'Vv.:u 


Longint; 


; t«f 


Longint; 


. -;,-y.'i.>y*-L!:'"' 


- -^t 


■■V'.^:^-r53 7;.:' - 




^.y\'ci'''0y>^ 




. -•■, « »w - 




,*t^s;f-*;-';. 




IH^Sv= ; 




; ..'U'vi-'V^ 



vrn: 
intCode: 



Integer; ( used only by Bindint } 
Longint; { used only by Bindint ) 



f'- 



EKD; 

lORecPtrGS 
lORecGS 

RECORD 



■, 5£a^5.>*Ji 3*-,«9W»W(«v 



= -"lORecGS; 






pCount : 
refNum: 
dataBuf fer: 
requestCount : 
transferCount : 
cachiePriority : 






END; 



Integer; 

Integer; 

Ptr; 

Longint; 

Longin t f o J)> ^ fct i '' ' 

Integer; 

J 






e--.v.' 






LevelRecPtrGS 




- 


"LevelRecGS; 


Level RecGS 




= 




RECORD 






: . 7" (( !.■ 




pCount : 




-_,,,; J Integer; 


■i^.'^l 


level: .,, 


;£L- 


.\ ; s-v^? Integer; 


END; 






■.-.o?';.-' 



'■V - 
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\_y 



\^ 



NameRecPtrGS 

NameRecGS 

RECORD 



END; 



= "NameRecGS; 



-.Vi ■i:tvv.t"jj.>;?-j' - 



.'■l-.^-!t^ 



pCount : 
pathname: 



Integer; 

GSString255Ptr; { full pathname or a 

filename depending on call J 



GetNameRecPt rGS 

GetNameRecGS 
RECORD 

pCount : 
dataBuffer: 



"GetNameRecGS; 



.%r.^::^'i<tV 






;V l'-J>- 



END; 

NewlineRecPt rGS 
NewlineRecGS 
RECORD 

pCount : 



Integer; 

ResultBuf255Ptr,- { full pathname or a 

filename depending on call } 



= "NewlineRecGS; 



■'■-'^^;^*. 



^'.^■^t:'.- 



Integer; ..-. -.^.^^j.- 3^/- 

numChars : ,,,,^^^ Integer; .^j . ^ 
newlineTable: Ptr; 



refNum; 
enableHask: 



■;';*!,' 



OpenRecPtrGS 
OpenRecGS 

RECORD 



"OpenRecGS; 



igajwp^.fi.rC 



iiv^:; PCount: ^ «8^,-,.^,e^ Integer .-.^^jj^. : .v?.:^.-■:■:. 



refNum: 
pathname: 
reofuestAccess: 
resourceNumber : 

access: ; 
fileType: 
auxType : 
storageType: 
createDateTime : 
modOateTime : 
optionList : 
eof : 

blocksUsed: 
resource EOF: 
resourceBlocks : 



Integer; 

GSString255Ptr; ..-i^». 

Integer; 

Integer; {For extended files; dataFork/ .- ,. 
resourceFork} ..•. -., 

Integer; {Value of file's access attribute) 
Integer; {Value of file's fileType attribute) 
Longint; tcwfrii^-i i^ya?'---,- 
Integer; - *i'=-s 

TimeRec; 
TimeRec; 
IntPtr; 
Longint; 
Longint; 
Longint; 
Longint; 



'■^■■^i&it 



END; 






OSShutdownRecPtrGS 
OSShutdownRecGS 
RECORD 

pCount : 

shutdownFlag; 
END; 



;X-e*i?i >'->t ' 



= "OSShutdownRecGS; 



Integer; { in ) 
Integer; { in ) 



!;?/ ■,.."; f 



v^- 
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Posit ionRecPtrGS 

PositionRecGS 
RECORD 

pCount : 
refNum; 
position : 



= "Posit ionRecGS; 



T .'-'«-? 



Integer; 

Integer; 
Longint ; 



END; 



:..!;^,l^^.v: 



i-.t 






;;'>^wii'-- 



EOFRecPtrGS 
EOFRecGS 

RECORD 



END; 



pCount : 

refNum: 
eof : 



*i.T ■^-> * ^ 



= ''EOFRecGS; 



Integer; 
Integer; 
Longint; 



"W-i'/i'*-!'* (*"*».' 



'r«-*-jj'f:r ■. 



';\-.-:-''>i 






PrefixRecPtrGS 
PrefixRecGS 

RECORD 



= ^PrefixRecGS; 



>".-sR*»<'.Xfv«M- - 



pCount: Integer; 

prefixNum: Integer? *v*-'-'* 

CASE Integer OF 

0: (getPrefix: ResultBuf255Ptr; }; 

i3 (setPrefix: GSString255Ptr; ); 



END; 

QuitRecPtrGS 
QuitRecGS 

RECORD 



■>!!■■■. 



= "QuitRecGS; 



: ^.-r^iv^j^nfe-TC ' *■ 



-IT.?'." 'i'T. " 



pCount: Integer; 

pathname: GSString2S5Ptr; {pathname of next app to run} 

flags: Integer; '''''' 



END; 



RefnumRecPtrGS ^- ^^ K^?<: «=, "RefNumRecGS; -'^-■^ 
RefNumRecGS i^Y.c''te 

. RECORD r---''-'i\ 

ifS'-idi-,- pCount: Integer; "^t It^Jy'^t^i 

refNum: Integer; ;^fii^^>s■^■ 

END; ;»a^^^ft.; 

SessionStatusRecPtrGS = "SessionStatusRecGS; 

SessionStatusRecGS 

RECORD ■.r^ft-■^<«.■: 

pCount ; Integer; ( in: min = 1 } 
status: Integer; { out : ) 



- .1 ft =0^ 
;^JM#. its Jt ■>«•■.• V 



-.•Jr- 



SetPosit ionRecPtrGS = "Set PositionRecGS; 
SetPositionRecGS 
RECORD 

pCount : Integer; 

refNum: Integer; ' '' ' 

. ' base: Integer; *Jf-*- 
displacement : Longint; 
END; 



*?^0" - 






-. r^. l"?^«^•^5™'"•■ 



SysPrefsRecPtrGS 



= "SysPref sRecGS; 
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*^ 



SysPrefsRecGS 

RECORD 



END; 



~-:-n~:..-'^ ^.'■- •■'^ 



pCount : 
preferences : 



, ; *.>;j^t<l«i--i,.ii 



VersionRecPtrGS 
VersionRecGS > 

RECORD 

pCount : 
version: 

END; 

VolumeRecPtrGS 

VolumGRecGS , a 
RECORD 

pCount : 

devName : 

volName : 

totalBlocks; 

freeBlocks; 

fileSysID: 

blockSlze: 



Integer; 
Integer; 

'VersionRecGS; 

Integer; 
Integer; 



'VolumeRecGS? 



i/:t<*Aiii -t-;T''l 



END; 



PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 



BeginSessionGS 

{VAR pblockPtr: 
BindlntGS 

(VAR pblockPtr: 
ChangePathGS 

(VAR pblockPtr: 
ClearBackupBitGS 

(VAR pblockPtr: 
CloseGS 

(VAR pblockPtr: 
CreateGS 

(VAR pblockPtr: 
DControlGS 

(VAR pblockPtr: 
DestroyGS 

(VAR pblockPtr: 
DInfoGS 

(VAR pblockPtr: 
DReadGS 

(VAR pblockPtr: 
DStatusGS 

(VAR pblockPtr: 
DWriteGS 

(VAR pblockPtr: 
EndSessionGS 

(VAR pblockPtr: 
EraseDiskGS 

(VAR pblockPtr: 
ExpandPathGS 

{VAR pblockPtr: 
Flushes 

(VAR pblockPtr: 
Formates 



Integer; 

GSString32Ptr; 

ResultBuf255Ptr; 

Longint ; 

Longint; 

Integer; 

Integer; 






SessionStatiis,R.eQCS) ; 
InterruptRecGS) ; 



ChangePathRecGS) ; 



^rJftJ 



-««o 



NameRecGS) ; 



^:^tfm ^i 3<?- 



RefNumRecGS) ; 



CreateRecGS) ; 



■=^^is.t^*5': 



DAccessRecGS) ; - 
NameRecGS); .. ^, _^*_« 



DlnfoRecGS)^ 



>S<^;j'Snl'iiiV 



DIORecGS); 



DAccessRecGS) ; ^^,^ '■t.-y'' 



DIORecGS) ; 



7-:^- *."ii, i^TK'^-. 



SessionStatusRecGS) ;.>,-, -v 



FormatRecGS) ; 



n>rs*3»; 



Appendices 



=;.<Ji- c^fqcjiA. 



ExpandPathRecGS] ; . ^y. 
RefNumRecGS) ; ,'_*—-- 
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PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 



(VAR pblockPtr: 
GetBootVolGS 

(VAR pblockPtr: 
GetDevNumberGS 

(VAR pblockPtr: 
GetDirEntryGS 

(VAR pblockPtr: 
GetEOFGS 

(VAR pblockPtr: 
GetFilelnfoGS 

(VAR pblockPtr: 
GetFSTlnfoGS 

{VAR pblockPtr: 
GetLevelGS 

(VAR pblockPtr: 
GetHarkGS 

(VAR pblockPtr: 
GetNameGS 

(VAR pblockPtr: 
GetPrefixGS 

(VAR pblockPtr: 
GetVersionGS 

(VAR pblockPtr: 
GetSysPrefsGS 

(VAR pblockPtr: 
NewlineGS 

(VAR pblockPtr; 
NullGS 

{VAR pblockPtr: 
OpenGS 

(VAR pblockPtr: 
QuitGS 

(VAR pblockPtr: 
ReadGS 

(VAR pblockPtr: 
ResGtCacheGS 

{VAR pblockPtr: 
SesslonStatusGS 

(VAR pblockPtr: 
SetEOFGS 

(VAR pblockPtr: 
SetFilelnfoGS 

(VAR pblockPtr: 
SetLevelGS 

{VAR pblockPtr: 
SetHarkGS 

(VAR pblockPtr: 
SetPref ixGS 

(VAR pblockPtr: 
SetSysPref sGS 

(VAR pblockPtr: 
UnbindlntGS 

(VAR pblockPtr: 
VolumeGS 

(VAR pblockPtr: 
WriteGS 

(VAR pblockPtr: 



FormatRecGS) ; 


': ' ' 




^-.f 


■ .'iH --■.!•■.; 




NameRecGS) ; 

■•T * 


■.;■-;■ -K: .i'>'5 <y ' 




DevNumRecGS) ; 






DirEntryRecGS) ; 


i-:-- .. - 


;-^V«i.^ ■ 


EOFRecGS); 






FilelnfoRecGS) ; " '' 


-.u" . ■- "'•"i- •■■ 


- 


FSTInfoRecGS) ; ^ , ,. 


^■''■•: 


:^'iT>5'Br» . 


LevGlRecGS) ; 


.-■a'-, t' 


PositionRGcGS) ; ^^ 


. ;-, J, -'.Wjf 




GetNameRecGS) ; 






Pref ixRecGS) ; , 






VersionRecGS) ; 


:-r^-. '. Z <: J*?.-'.' 


.'i* 


SysPrefsRecGS) ,- 


?.-.'ii.. ;> 


■.;.^^[y ■ 


NewlineRecGS) ; 




IntPtr); 




.,.'.3^-j(y 


OpenRecGS) ; 






QuitRecGSJ ; 


y ■" ,--, ^--■ -ti/ 


9 ->"■■ 


lORecGS) ; 


: •.-i^iO.: -'-"' 




IntPtr) ; 


y " 




SessionStatusRecGS) ;' 


; % ;-- ,Sr.-^/: :> 




SetPosltionRecGS) ; 


J-S.-j'lJtJKt-i-f-; 


-■■"■'; 
■.-•-■ ■ ■"." \ 


FilelnfoRecGS) ; 


: ;^^'*<.-' --^ 


■i/--! 


LGVGlRecGS) ,- 


; i3^,»-v>r';n 




SetPosltionRecGS); 


: ^■ fHK---T':;'.: 





PrefixRecGS) ; 



SysPrefsRecGS) ; 



InterruptRecGS) ; 



"?::-r-5-^0,:j 



■;(«<..*«=■ 



i" , tf ^ 



-■(vS)*J 



VolumeRecGS) ; 
lORecGS) ; ■'- '^-'-^ •* ' 



:- -^ ■--, ■;■. ■ ... 
■ 1^ •: -r , .■ ...... 
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PROCEDURE OSShutdownGS 

(VAR pblockPtr; 

PROCEDURE FSTSpecific 

{VAR pBlockPtr: 

IMPLEMENTATION 
END. 



.;>«} 



OSShutdownRecGS) ; 






."^C^V.^ii^f'^-^J' 



IntMath 















, trv-t jv^y 



; File: IntMath. p 



; Copyright Apple Computer, Inc. 1986-89 

; All Rights Reserved '*^t 

UNIT IntMath; 






1 ■ 1 ■■..■:, jj(50- 



nt>rV^;,3fc'T!?tf ' 






■.>r-"'- 






-. -f.^^'n't ■ .- - 



V^ 



INTERFACE 
USES Types; 

CONST imBadlnptParam 
iralllegalChar 
imOverflow 

imStrOverflow 
minLongint 

minFrac 

minFixed 

minint 

maxint 

raaxUInt 

maxLongint 

maxFrac 

maxFixGd 

maxULong 

unsignedFlag 

signedFlag 



;]M^-- 



= $0B01 
= 50802 
= $0B03 

=■ S0B04; 

= 580000000; 

= 580000000; 

= $80000000; 

= 58000; 

= S7FFF; 

= 5FFFF; ***'^-'- 

= S7FFFFFFF; 

= S7FFFFFFF; 

= S7FFFFFFF; 

= SFFFFFFFF; 
= 50000; 
= 50001; 









(error - bad input parameter > 

{error - Illegal character in string) 

(error - integer or long integer 

overflow ) 

{error - string overflow ) . _ 

{Limit - minimum negative signed 

long integer } 

(Limit - pinned value for negative 

Frac overflow ) 

{Limit - pinned value for negative 

Fixed overflow } 

(Limit - Minimum negative signed 

integer } 

(Limit - Maximum positive signed 

integer } 

(Limit - Maximum positive unsigned 

integer } 

7 e,yi- .= > 

(Limit - maximum positive signed 

Longint } 

(Limit - pinned value for positive 

Frac overflow ) 

(Limit - pinned value for positive 

Fixed overflow ) 

(Limit - maximum unsigned Long } 

{SignedFlag - } 

(SignedFlag ~ } 






.'■r:-:t' 



\^ 
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TYPE IntDivRGcPtr = "IntDivRec; •..^. ■■'■•-■ 

IntDivRec = ■ ■-■"-■- .■..-.....-..,■ H-V. 

RECORD ■ ' i ■ 

quotient: Integer; { quotient from SDivide 1 ~ -i-'V. 

remainder: Integer; { remainder from SDivide ) 
END; 






3'i23i 



LongDivRecPtr = "LongDivRec; 

LongDivRec - 

RECORD -■'— '. — 5=-~.«'---«™«..w:r,v5»sB.i£2iifi3tr.:sa6^\:3fesr^ ""■^' '-" 

quotient: Longint; { Quotient from LongDiv ) 
remainder : Longint ; ( remainder from LongDiv > » 

END; 



DivRecPtr 
DivRec 

LongMulRecPtr 
LongMulRec 

RECORD 



END; 



IsResult: 
msResult : 



= "DivRGc; (* for backward compatability *) * 
= LongDivRec; 
= "LongMulRec; 



Longint; ( low 2 words of product ) 
Longint; { High 2 words of product } 






WordDivRecPtr 
WordDivRec 

RECORD 



= "WordDivRec; 



quotient: Integer; ( Quotient from UDivide } 
remainder: Integer; { remainder from UDivide } 



END; 









Integer; 

Boolean) : Integer; ■^,^,4^;. ^ 



PROCEDURE IMBootlnit; 
PROCEDURE IMStartUp; 
PROCEDURE IMShutDown; 
FUNCTION inversion: Integer; 
PROCEDURE IHReset; 
FUNCTION IMStatus: Boolean; 
FUNCTION Dec2Int 

(strPtr: 
^' ' ■ strLength: 
signedFlag: 
FUNCTION Dec2Long 

{StrPtr: 
'" StrLength: 
signedFlag: 
FUNCTION Fix2Frac «Ki«.'>-' 

(fixedValue: 
FUNCTION Fix2Long 

(fixedValue: Fixed.) : Longint^_^^.^,j-5i-2 

PROCEDURE Fix2X *' "*'-'*'-' ■"" 

(fixedValue : 
'^'''- VAR extendPtr: 
FUNCTION FixATan2 



ms^-i X. 



ia'r; J r >■ 



Ptr; -.Tv-^r? ■' 

Integer; 

Boolean) : Longint; ^■;-{-^,> .. 



Fixed) : Frac; 



Fixed; 

Extended) ; 



-.■.-»'^-<^-- -' 



; -n^yr^w 



< input I : Longint; 



input 2 : 
FUNCTION FixDiv 

(dividend: 
divisor : 
FUNCTION FixMul 



■f'i= i^ ;■! '. 

Longint) : Fixed; r(i.;jo? 



Longint; 
Longint) : Fixed; 



^ ,^;-^^S ■■:■■ 



i»' 
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FUNCTION 

FUNCTION 
FUNCTION 

PROCEDURE 

FUNCTION 
FUNCTION 

FUNCTION 

FUNCTION 
FUNCTION 
FUNCTION 

FUNCTION 

FUNCTION 
FUNCTION 
PROCEDURE 

PROCEDURE 
PROCEDURE 



(multiplicand: 
multiplier ; 
FixRatio 

(numerator : 
denominator : 
FixRound 

(f ixedValue: 
Frac2Fix 

(f racValue: 
Frac2X 

{f racValue: 
VAR extendPtr: 
FracCos 

(angle: 
FracDiv 

{dividend: 
divisor: 
FracMul 

(multiplicand: 
multiplier: 
FracSin 

(angle: 



Fixed; -^ii^i^v: .• 

Fixed): Fixed; - •'- U-^i'-~ 

Integer; ^'^ - ' 

Integer) : Fixed; 

Fixed) : Integer; --■■'^■ 

Frac) : Fixed; rs-r^'-.-'';"; 

Frac; 

Extended) ; Vt ^s** >fi'i 

Fixed) : Frac; 

Longint; 

Longint) : Frac; '*'"'^''*'^ 

Frac; 

Frac) : Frac; 

Fixed) : Frac; 



. "li Ji,'.', 






FracSqrt ■^&::^SiS??^'^SS£aS^?TO3,S^^':^r^Tr^^:!vQEj-^^ 



(f racValue: 
Hex2Int 

(strPtr: 
strLength: 
Hex2Long 

{strPtr: 
StrLength: 
Hexit 

(int Value: 
HiWord 

(IcngValue: 
Int2Dec 

(wordValue : 
StrPtr; 
StrLength: 
signedFlag: 
Int2Hex 

(intValue: Integer; 

StrPtr: *'/p,'jr^S Ptr; 
StrLength: ^i.1 :*p^ Integer); 
Long2Dec vl/'^-.n Kr^ 'fih'^ srclJ - ^~r.■'^t 
<longValue: ' --. r,'^^ ^Longint; w^-j^ ; : 



Frac) : Frac; 

Ptr; 

Integer) : Integer; 

Ptr; 

Integer) : Longint; 



Integer) : Longint; ^:-Sa?I .->«! .^*».:f --^.Ttn^'i i«i-'.» - -'" 



Longint) : Integer; 

Integer; 
Ptr; 

Integer; 
Boolean) ; 



p-5i«v"«.i»-.1-i-.«»-*i*' '• r ■. s ' 



r.ltVS?"""i .» ■" V-I^;^,- *.'? V 



FUNCTION 

PROCEDURE 

FUNCTION 
FUNCTION 



StrPtr: 
StrLength: 
signedFlag: 
Long2Fix 

(longValue: 
Long2Hex 

(longValue: 
StrPtr: 
StrLength: 
LongDivlde 

(dividend: 
divisor : 
LongMul 



act it = 



Ptr; it^i iwifi-i 

Integer; i'S^"-'*8<>> j. iw'>£- :- 

Boolean) #?t.:*ist' i,^C;-':;n* - 

Longint) : Fixed; 



"*'j7;-*v^.-"'-.f- ■■-. - 



'.V ii' 



Longint; 
Ptr; 
Integer) ; 

Longint; 

Longint) : LongDivRec; 



1 'J i I iv" 

■,-Vt^ji::i. " 



. vS 






Appendices'-"-'^ '■^■^■'■^ r^i-ricA 



C-37 ^ ^ 



Apple liGS Toolbox Units 



(multiplicand : 
multiplier; 
FUNCTION LoWord 

(longValue: 
FUNCTION Multiply 

(multiplicand: 
multiplier : 
FUNCTION SDivide 

(dividend: 
divisor: 
FUNCTION UDivide 

(dividend: 
divisor: 
FUNCTION X2Fix 

(extendPtr: 
FUNCTION X2Frac 

(extendPtr: 



Longint,- , ;•; 

Longint) : LongMulRecf ,*-^ 

Longint); Integer; _.;,-' 

Integer; 

Integer) : Longint; j-j 

Integer; ■• - ■ .f,^^ ■ 
Integer) : IntDivRec; 

Integer; .■• : 
Integer) : WordDivRec; 

ExtendedPtr) : Longint; 

ExtendedPtr) : Longint; 









i- a- .>v;^ 



IMPLEMENTATI0^3 
END. 
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LineEdit 

J******************************************** 

; File: LineEdit. p -.-^'^ 

Copyright Apple Computer, Inc. 1986-89 lif-^A '. "iii^sfffi 

All Rights Reserved 

UNIT LineEdit; 

INTERFACE 

USES Types, QuickDraw, Events; 









CONST leDupStrtUpErr 
leResetErr 
leNotActiveErr 
leScrapErr 
leJustLeft 
leJustCenter 
leJustFill 
leJustRight 

TYPE LERecHndl 
LERecPtr 
LERec 

RECORD 



= SlflOl 
= S1402 
= $1403 
= Sl^O^ 

= soooo 

= SOOOl 
= S0002 

= SFFFF 



{error - duplicate LEStartup call } 
{error - can ' t reset Line Edit } 
(error - Line Edit not active } J>;p>---"- 
{error - desk scrap too big to copy 1 

{Justification - ) 

{Justification - ) . ■ .' •■■•-'.■■ ■ ■-=- 

{Justification - } 

{Justification - } 



= "^LERecPtr; 
= "LERec; 



•jinin. 



leLineHandle : 
leLength : 
leMaxLength; 
leDestRect : 



Handle; 

Integer; ■ ;^ '_:■!■■'* 

■-«? Integer; , i ■■:■,■,■••.■■'. - 
Rect ; 
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w 



vy 



leViewRect : 

lePort : 

leLineHite; 

leBaseHiCe: 

leSelStart: 

leSelEnd: 

lefictFlg: 

leCarAct : 

leCarOn: 

leCarTime: 

iGHiliteHook; 

leCaretHook: 

leJust : 

lePWChar: 



END; 



PROCEDURE 
PROCEDURE 



PROCEDURE 

FUNCTION 

PROCEDURE 

FUNCTION 

PROCEDURE 

PROCEDURE 



PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 
FUNCTION 

FUNCTION 

FUNCTION 

PROCEDURE 

PROCEDURE 

PROCEDURE 



LEBootlnit; 
LEStartUp 

(userlD: 
dPageAddr : 
LEShutDown; 
LEVersion: 
LEReset; 
LESCatus: 
LEActivate 

{leRecHandle: 
LEClick 

(eventPtr: 
leRecHandle : 
LECopy 

(leRecHandle: 
LECut 

(leRecHandle: 
LEDeactlvatG 

(leRecHandle: 
LE Delete 

(leRecHandle: 
LEDispose 

(leRecHandle: 
LEFromScrap; 
LEGeCScrapLen : 
LEGetTextHand 

(leRecHandle: 
LEGetTextLen 

(leRecHandle: 
LEIdle 

(leRecHandle: 
LEInserC 

(textPtr: 
textLength: 
leRecHandle: 
LEKey 

(theKey: 
modifiers : 
leRecHandle: 



Integer; 
Integer) ; 



Integer; 



Rect ; 

GrafPortPtr; 

Integer; 

Integer;- ■ 

Integer; 

Integer; 

Integer; 

Integer; 

Integer; 

Longint; 

VoidProcPtr; 

VoidPrccPtr; 

Integer; 

Integer; 






Boolean; 

LERecHndl) ; 

Event Record; 
LERecHndl) ; 

LERecHndl) ; 

LERecHndl) ; 

LERecHndl) ; 

LERecHndl) ; 

LERecHndl) ; 

Integer; 

LERecHndl) : Handle; 

LERecHndl) : Integer; 

LERecHndl) ; 

Ptr; 

Integer; 
LERecHndl) ; 

CHAR; 
Integer; 

LERecHndl) ; 



; ;■«$■■■■■■ *->'■ ; rt.;t'''7-*>-'- ■■ 

■, i»i^'■■^J«,' '■■-.^-■■. ... ■, 

. (■swK■^.-.^'; r ::J*"-.!. 
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LERecHndl) ; 
Handle; 



FUNCTION LENew 

(destRectPtr: Rect; 
viewRectPtr : Rect; 
maxTextLen: 
PROCEDURE LEPaste 

CleRecHandle: 
FUNCTION LEScrapHandle : 
PROCEDURE LESetCaret 

(caretProcPtr: VoidProcPtr; 
leRecHandle: LERecHndl) ; 
PROCEDURE LESetHilite 

{hlliteProcPtr: VoidProcPtr; , 
leRecHandle : LERecHndl) ; 
PROCEDURE LESetJust 
(just: 
leRecHandle: LERecHndl) ; 
LESetScrapLen 



Integer) : LERecHndl; 
Integer; 



PROCEDURE 
PROCEDURE 



Integer) ; 



Integer; 
Integer; 



PROCEDURE 



PROCEDURE 



PROCEDURE 



PROCEDURE 
PROCEDURE 

FUNCTION 



(new Length: 
LESetSelect 

(selStart: 
selEnd: 
leRecHandle: LERecHndl) ; 
LESetText 

(textPtr: Ptr; 
text Length: Integer; 
leRecHandle; LERecHndl); 
LETextBox 

(textPtr: Ptr; 
text Length: Integer; 
rectPtr: Rect; 
just: Integer) ; 
LETextBox2 

(textPtr: Ptr; 
textLength: Integer; 
rectPtr: Rect; 
just : Integer) ; 
LET o Scrap; 
LEUpdate 

(leRecHandle: LERecHndl) ; 
GetLEDefProc: Ptr; 



IMPLEMENTATION 
END. 









^I;.:-jC..'V-..'-.*'. 



', J^^" '-*-■ -' 

■T- ' . ' 



5 *?- .'". 
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Lists - - .,,...... . ,-. 

File: Lists. p 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 









: t« ; ; K 1 1 



UNIT Lists; 



INTERFACE 

USES Types, QuickDraw, Events, Controls; 






;..-:".» 


; J.;-T-v;<S, . 


i 'IS^irs.'^l 


irix. -■-'-.! 


-.-is^-^',-' i 


: - -.i'-;, • ■ 


: :.-'p'.-..'-r\ 


■T-iV-frz: 



CONST 



TYPE 



r \U 



V_y 



cString 


= 


SOOOl 


LIST STRG 


= 


SOOOl 


selectOnlyOne 


= 


S0002 


LIST SELECT 


= 


S0002 


memDisabled 


= 


$10; 


memSelected 


= 


$80; 



{ListType bit mask - null terminated string type } 
{ListType bit mask - null terminated string type } 
{ListType bit mask - only one selection allowed } 
{ListType bit mask - single selection only ) 
(memFlag - Sets member flag to disabled } 
{memFlag - Sets member flag to selected } . 



= "LColorTablePtr; 

= "LColorTable; 



LColorTableHndl 

LColorTablePtr 

LColorTable 

RECORD ' 

listFraraeClr : Integer ; 

listNorTGxtClr: Integer; 

- listSelTextClr: Integer; 

listNorBackClr: Integer; 

listSelBackClr: Integer, - 






Frame color } 

Unhighlighted text color } 
Highlighted text color } 
Unhighlighted background color } 
Highlighted backgraound color } 






END; 
HemRecHndl 
MemRecPtr 
MemRec 

PACKED RECORD 
memPtr : 
memFlag: 
END; 
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^MemRecPtr; 
^MemRec; 



Ptr; 
Byte; 









ListCtlRecHndl 

ListCtlRecPtr 

ListCtlRec 

PACKED RECORD 
ctlNext : 
ctlOwner : 
ctlRect : 
ctlFlag: 



ctlHilite: 
ctlValue: 
ctlProc: 
ctlAction : 
ctlData: 



= "ListCtlRecPtr; 
= ""ListCtlRec; 



Pointer to string, or custom ) 

• Mi- ■— 



CtlRecHndl; 
GrafPortPtr, 
Rect ; 
Byte; 

Byte; 

Integer; 

LongProcPtr; 

LongProcPtr; 

Longint; 
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( Handle of Next Control } 

{ Window owner ) 

{ Enclosing Rect ) 

{ Bit 7 visible. Bit string type. 

Bit 1 multiple ) 

( (not used) } . . 

{ First member in display } 

{ Address of list definition procedure} 

{ Address of list action procedure } 

( Low = view size. High = total members ) 



Apple IIGS Toolbox Units 
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ctlRefCon;, Longint; { Not used ) ■ , . ■ .. 

ctlColor: LColorTablePtr; { Null for default colors } 

ctlMemDraw: VoidProcPtr; {Address of routine to draw members) J '■ 

ctlMemHeight : Integer; { Member ' s Height in Pixels } 

ctlMemSize: Integer; { Bytes in member record ) 

ctlList: MemRecPtr; { Adress of first member record in array ) 

ctlListBar: CtlRecHndl; { Handle of list contrlo's scroll bar 

control } 



END; 

ListRecHndl 

ListRecPtr 

ListRec 

RECORD 
listRect : 
listSize: 
listView: 
listType: 
listStart; 
listCtl: 
■ ' listDraw: 



= "ListRecPtr; 
= ^ListRec; 



^•a- :.^Ki 



1 . 13- "■:■ -' 



V 



Rect; 

Integer; 

Integer; 

Integer; 

Integer; 

CtlRecHndl; 

VoidProcPtr; 



listMemHeight : Integer; 
listMemSize : Integer; 
listPointer : MemRecPtr; 
listRefCon: Longint; 
listScrollCir : BarColorsPtr; 
END; 



( Enclosing Rectangle } 

{ Number of List Members ) 

{ Max Viewable members } 

( Bit Flag } _.^^ _, ^^ ..^.^ ^ 

{ First member in view } 

{ List control ' s handle ) 

( Address of Custom drawing routine) .. 

{ Height of list members ) 

{ Size of Member Records ) 

{ Pointer to first element in MemRec array ) 

{ becomes Control's refCon ) 

{ Color table for list's scroll bar} 



PROCEDURE ListBootlnit; 
PROCEDURE ListStartup; 
PROCEDURE ListShutDown; 
FUNCTION ListVersion: Integer; 



f ;ieIcK> Mtte^T"* 



WindowPtr; 
ListRecPtr) : 



.Sm.' -i 



PROCEDURE ListResGt; 

FUNCTION Liststatus : Boolean; 

FUNCTION CreateList 

(theWindowPtr : 

listRecPtr: 

PROCEDURE DrawMember 

tmemberPtr : 

listRecPtr: 

FUNCTION GetListDefProc: 

PROCEDURE NewList 

(memberPtr : 

listRecP.tr: ListRecPtr) ; 

FUNCTION NextMember 

(memberPtr: 

listRecPtr: 

FUNCTION Reset Member 

( listRecPtr: 

PROCEDURE SelectMember 

(membGrPtr : 

listRecPtr: 

PROCEDURE SortList 

(comparePtr : 

listRecPtr: 

PROCEDURE DrawMember2 -"- '' 

(itemNumber: '"^'' ' 

• ■'■*'■ ctlHandle: '"' ^ 
! 11 i'' -*.'.7<(.~i ■ *» J- ■- ■ - ■.;.*.-i ■■"'- 



:.'.e" ;-.■■■■ 



ListCtlRecHndl; 






MemRecPtr; 






ListRecPtr) ; 
LongProcPtr? 


>s->fl 




, 


:.^'C» 


. f..^ Vi<;i«: 



MemRecPtr; 



MemRecPtr; 

ListRecPtr] : MemRecPtr; 



''.*t.y 



ListRecPtr) : 


MemRecPtr; 




MemRecPtr; 

ListRecPtr) ; 






VoidProcPtr; 
ListRecPtr) ; 




. ^ . i ; ii l 7 - 


I n t ege r ; 
CtlRecHndl) ; 




r- :.: 'A ' 
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FUNCTION NextMember2 

{itemNumber : 
ctlHandle; 

FUNCTION ResetMeinber2 

(CtlHandle: 

PROCEDURE SelectMember2 

(itemNumber: 
CtlHandle: 

PROCEDURE SortList2 

(comparePtr: 
CtlHandle: 

PROCEDURE NewList2 

(drawProcPtr : 
listStart; 
listRGf: 
listRefDesc: 
listSize: 
CtlHandle: 

IMPLEMENTATION 

END. 



Loader 



Integer; 

CtlRecHndl) : Integer; 

CtlRecHndl) : Integer; 

Integer; -. ssv^rf.3-.-i.t 

CtlRecHndl} ; 

Ptr; tiPf^aJ-if 

CtlRecHndl) ; 

ProcPtr; \r.',~.-i?.\X---!tKH:c^''' - 
Integer; "* 

Re f ; 

RefDescriptor; i'*'^ 
Integer; :«W5T/.E 
CtlRecHndl) ; •T<'t*'-^- '• 



;aEt'^,»i&t^->i'J:?.c '.-»;•' ■ 












'. fit" Af^e 






,;>''■- 



I********** ******* **-^*1r*i.ir******-t*t:****i.i,i1,^^, 

File: Loader-p 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 



.«*******.**fc**i****^^^j,^ 



UNIT Loader; 



**************t,irir-lr*-f 



INTERFACE 
USES Types; 









•.'<vr 



; J^<^'?^?,li : 1 » '^1 ' ■■ :i'^^vvjit.i-,.- - :1 



CONST idNotFound 

IdNotLoadFile 

idBusyErr 

idFilVersErr 

idUserlDErr 

idSequenceErr 

idBadRecordErr 

idForeignSegErr 



= SllOl; {error - segment/application/entry not found } 

= S1104; {error - file is not a load file ) 

= $1105; (error - system loader is busy } 

= S1107; {error - file version error } 

= S1108; {error - user ID error ) 

= S1109; {error - segnum out of sequence ) 

= $110A; {error - illegal load record found ) 

= SllOB; {error - segment is foreign ) 






TYPE InitialLoadOutputRecPtr = "InitialLoadOutputRec; ,,,, 
InitialLoadOutputRec 
RECORD 

userlD: Integer; 
startAddr : Ptr; 
dPageAddr: Integer; 



1 ?-';■ 



.Jl< 



--^j ■.^.■■, 
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buf £Size: 



END; 



RestartOutRecPtr 
RestartOutRec 
RECORD 

userlD: 
startAddr ; 
dPageAddr : 
buffSize: 
END; 

LoadSegNameOutPtr 
LoadSegNameOut 
RECORD 

segAddr : 
f ileNum: 
segNum: 
END; 



Integer; 

• ■ 'n;'i ■ -. 

'RestartOutRec; 

Integer; ;?^r" ^"^ 

Integer; 

Integer; i ,'■" 

^ LoadSegNameOut ; s^Ms 1 ''.. 

-■3^9 'rt X 

Ptr; ..-r,- ■r.vt-».-^-J5itf^ 
Integer; x^.-.(M>./r.I 
Integer; lt,rJK>i..U ^> 



- .a.'r**?. i- 



UnloadSegOutRecPtr 
UnloadSegOutRec 
RECORD 

userlD : 
f ileNum: 
segNum: 
END; 



■fi^?s^^aK5s:r?:=s!=^iiiK 



= "DnloadSegOutRec; 



Integer; 
Integer; 
Integer; 



■ ■sscw*s^^:'''f^:.-.irs^^i-"^ ■ ^.■ 



PROCEDURE Loaderlnitialization; . 
PROCEDURE LoaderStartUp; 
PROCEDURE LoaderShutDown; 
FUNCTION LoaderVersion : 
PROCEDURE LoaderReset; 
FUNCTION LoaderStatus: 
PROCEDURE GetLoadSeglnfo 
(userlD: 
loadFileNum: 
loadSegNum: 
bufferPtr: 
FUNCTION GetUserlD 

(pathNamePtr : Ptr) : 
FUNCTION GetUserID2 

(pathNamePtr : Ptr) : 
FUNCTION InitialLoad 
(userlD: 
loadFileNamePtr : 
spMemFiag; 
FUNCTION InitialLoad2 
{userlD: 

loadFileNamePtr : 
SpMemFiag; 
input Type: 
FUNCTION LGet Pathname 
(userlD: 
f ileNumber : 
FUNCTION LGetPathname2 
(userlD; 
f ileNumber : 



Integer; 

Boolean ; 

Integer; 
Integer; 
Integer; 

Ptr) ; 

Integer; 
Integer; 



i^lj-^Ci^,' ..fi? .f^O:^:^''- ' -r / 



.. . vn -*'., 






Integer; 

Ptr;-;--"'-'^^^ 

Boolean) : initialLoadOutputRGc; 



itP'vJ f I 



Integer? 

Ptr; . ^,.. -. . 

Boolean; 

Integer) : InltlalLoadOutputRec; 



■tx'- ---■■ 



Integer; 
Integer) : Ptr; 

Integer; 
Integer) : Ptr; 






--ivfsT)* i"; ' :t'' -."■-. V-'- ■ 
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v^' 



^^ 



FUNCTION GetPathname 'swp:*-:: 
(userlD: "■"'^'■' '''''" 

FUNCTION GetPathname2 -^ "^'^ 
(userlD: '' ^^'■'^' 
f ileNumber : 
PROCEDURE RenamePathname 

(oldPathname : 
newPathname: 
FUNCTION LoadSegName 
(userlD: 
loadFileNamePtr: 
loadSegNamePtr: 
FUNCTION loadSegNum 

(userlD: 
loadFileNum; 
loadSegNum: 
FUNCTION Restart 

(userlD: 
FUNCTION UnloadSeg 

(segmentPtr : 
PROCEDURE UnloadSeqNum 
{userlD: 
loadFileNum: 
loadSegNum: 
FUNCTION UserShutDown 
(userlD: 
restartFlag: 

IMPLEMENTATION 
END. 



Locator 



Integer): Ptr; "^"'^"'^* .'■•Ai^-i - 



Integer; 



Integer; 
Integer) : Ptr;" 



Ptr; 
Ptr) ; 



Integer; 

Ptr; 

Ptr) : LoadSegNameOut; 

Integer; "••'''■ 
Integer; 

Integer) : Ptr; 






f;;iL. ?-( ,r- 



Cf 'J 



: :r^'ft}4«?^i.-= ■iff' 



Integer) : RestartOutRec; 
Per) : UnloadSegOutRec; 



Integer; 
Integer; 
Integer) ; 



^l(lI 






,ei»^->C'<«'4a .-.■ ^-i !'.'*' 



Integer; 

Integer) : Integer; 






V flrjLi^o.v&K 


: ■;; 


;'r>:-''":,--<ii.'' 


..'ji' ■ ■-. 


,\-.-j;-^'--- .-' 


ii^V. 



File: Locator. p 






Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 






**''f***i'***1l***1,*tl*J,**tt1,1,-l,-l,*ti,1ct,t*^1,**1H,ti,-* 



UNIT Locator; 

INTERFACE 
USES Types; 

CONST toolNotFoundErr 
funcNotFoundErr 
toolVerslonErr 
sysStrtMtErr 
messNotFoundErr 
filelnfoType 









-, Jli-S 






= SOOOl; {error - ) 

= 50002; {error - ) 

= 50110; {error - } 

= 50100; {error - can't mount system startup volume } 

= SOlll; (error - } 

= $0001; {MessageCenter - Message type parameter ) 
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TYPE 



addMessage 

getMessage 
de let eMes sage 
mvReturn 
mvE scape 
sysTool 
userTool 



MessageRecHndl 

MessageRecPtr 
MessageRec 

RECORD 



= SOOOl 

= soao2 

= S0003 
= SOOOl 
= S0002 
= 50000 

= ssooo 



{MessageCenter - action parameter } -,^; y 
{MessageCenter - action parameter ) -. ,-.; . 
{MessageCenter - action parameter } 
{TLMountVolume - like ok for dialogs ) 
{TLMountVolume - like cancel for dialogs } 
{Tool Set Spec - } _ .. , ,. ,_ . 



{Tool Set Spec - } 

= "MessageRecPtr; 
= "MessageRec; 



i-.i.. ft5. . 



•i'JS: 



messageNext : 
messageType: 
messageData: 
f xleNames : 



-.7lM^«SB■ 






MessageRecHndl; 

Integer; i, i 

Integer; 

PACKED ARRAY (1..1] OF Str255; 



1! iri': 



END; 

ToolSpec 

RECORD 



£ND,- 



•.^:j'-tiy'!i£-!i:"-!^: • .-:'?*>•■"- 



toolNumber : 
minVersion: 



•-■^^'..-y.'O 



Integer; 
Integer; 



StartStopRecordPtr = 
StartStopRecord 
RECORD 



-StartStopRecord; 









flags : 
videoMode: 
resFilelD: 
dPageHandle: 

numTools : 



END; 



PROCEDURE TLBootlnlt; 
PROCEDURE TLStartUp; 
PROCEDURE TLShutDown; 
FUNCTION TLVersion: 
PROCEDURE TLReset; 
FUNCTION TLStatus: 
FUNCTION GetFuncPtr 

(userOrSystem: 
funcTSNum: 
FUNCTION GetTSPtr 

(userOrSystem: 

tSNutn: 
FUNCTION GetWAP 

(userOrSystem : 
tSNum: 
PROCEDURE LoadOneTool 

(toolNumber : 
minVersion: 
PROCEDURE LoadTools 

(toolTablePtr: 
PROCEDURE MessageCenter 

{action : 
messageType: 



Integer; 

Integer; ;-. 

Integer; 

Handle; 

Integer; 



.* li-JV 



Integer; 


n •% 


. , »»r-*'» 


Boolean; 






Integer; 
Integer) : 


Ptr; 


.:*^ -5 


Integer; 
Integer) ; 


Ptr; ' 


.V*... 


Integer; 






Integer) : 


Ptr; 




Integer; 






Integer) ; 








i 


;!--t>'»' 


Ptr) ; 


1 - 


ne- H * 




1 


zO". s-^ : 


Integer; 


H ^ 


■JO-J- -: 


Integer; 


: ■' 


t;-. ■;■■>: 


ii.-*--^ \«T, ■ "•-■* 


if,^-;...t 


.,.-4-^ '--.«• 



. ' V-.T Ki.^» 
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\~J 



V_y 






' '"■■■■"■ ■■ - ■■ messageHandle: 
PROCEDURE RestoreTextState 

(stateHandle: 
FUNCTION SaveTextState: 
PROCEDURE SetDefaultTPT; 
PROCEDURE SetTSPtr 

(userOrSystem; 
tSNum: 
fptablePtr: 
PROCEDURE SetWAP 

(UserOrSystem: 
tSNum: 
waptPtr : 
FUNCTION TLMount Volume 
(whereX: 
whereY: 
linel : 
llne2: 
butl: 

but2: ,', j-.i,;,<; *•;, 
FUNCtlON TLTextMountVolume r^^-. ..-^ 
(linel : ^y^i ^g^j 
line2 : 
. but 1 : .tIo ( s r--.4 iv 
1 but2; «..,^„^ f^^; , 
PROCEDURE UnloadOneTool .ji^v » 
(toolNumber: j^ vs* . ■, 
FUNCTION StartUpTools ie>ctd 
(userlD: 

startStopRef Desc : 
startStopRef : 
PROCEDURE ShutDownTools 

( start St opDesc: 
StartStopRef: 
FUNCTIOW MessageByName 

(createltFlag: 
recordPtr: 

IMPLEMENTATION ^ ,,^>^ ;,*« jo .j*»j 
END. :,(j ^ifjte/fi \o A:>^id 



MessageRecHndl) ; 

Handle) ; 
Handle; 









Integer; 
Integer; 

FPTPtr) ; 

Integer; 
Integer; 

Ptr) ; 



. V a s ■ ^»*'* - 



ft«-.^SVf 



**:%«««■ 



Integer; 

Integer; 

Str255; 

Str255; 

Str255; 

Str255) : Integer; .' >: 

Str255; ^s '..-■ - ■'-•r-ivf 
Str255; -; **<. ! i i.t'*BO 
Str255; t<*>' 

Str255) : Integer; in.j 
■ - ^ •■** - -iCJiW'S 
■ ■, ■ Integei^-^J •?» ■■ jrLiy--ss[ 

Integer; j.4ii.).rs. 

Ref Descriptor; ■♦-■^•^'^i 
Ref ) : 



Ref; ^aA *ifec»S'r 
Ref Descriptor; sXojm*"* 

J*iSS ■■ .f.tA «»J.?fli»S J 
Boolean ;lj^^ i _■ >:»& , *ife€*« } 
Ptr) : Longint; 'i&ifei?; 

a:^ifi ^Iw?^ S.J^A- **?!*> AS^ 



.^. ■: "■"■i vv*-- 



■ -afiu;)? - 



^1.' 






J*:-;;.' 



;"**ps*-.':i 





! >.. ■. 


V-^*t-v»t.-.- 


.•'!" (■..-■ . 


■,7»p«»ftil 


...V;. -...y% 




, ;■;*■- <M'.-?'i 


-,:■.**.; ««i! 






•Vv7V-,1*r.^.^-:? 


-. V.^«; 


; ''-,:^'~: »=■ '. 


■ . ?".' 


:-.;":.U-i: 


! .j'i'j''' ;>is 


; 3!;,. 




,- : *• ,, ., - ...- 


, <?*f(:.-nif 


-^ai?^-.- ■-■-- ■■ 



V^ 
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Memory 






f ******************************************** 

; File: Memo ry . p 

f 

Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 

******■*********«***********■*****************) 
UNIT Memory; 



INTERFACE 






USES Types; 




' 


CONST memErr 


= 


S0201 


emptyErr 


= 


S0202 


notEmptyErr 


= 


S0203 


lockErr 


= 


$0204 


purgeErr 


= 


S0205 


handleErr 


= 


S0206 


idErr 


= 


S0207 


attrErr 


= 


S0208 


attrSoPurge 


= 


$0000 


attrBank 


= 


$0001 


attrAddr 


= 


50002 


attrPage 


= 


S0004 


attrNoSpec 


= 


S0008 


attrNoCross 


= 


SOOIO 


attrPurgel 


= 


SOIOO 


attrPurge2 


= 


$0200 


attrPurge3 


= 


S0300 


attrPurge 


= 


S0300 


attrHandle 


= 


SIOOO 


attrSystem 


= 


$2000 


attrFixed 


= 


$4000 


at tr Locked 


= 


$8000 



:iRft '■ :•':-.':■ ■■■'■ 
■.■v.: '',--■' 



Tl'*a . ■: C- •-se'.. 









(error - unable to allocate block ) . ^ ■■ 

{error - illegal operation, empty handle ) 

(error - an empty handle was expected for this 

operation } 

{error - illegal operation on a locked block } 

(error - attempt to purge an unpurgable block } 

(error - an invalid handle was given } ■....'. 

(error - an invalid owner ID was given } 

(error - operation illegal on block with given 

attributes > 

{Handle Attribute Bits - Not purgeable } 

(Handle Attribute Bits - fixed bank ) 

(Handle Attribute Bits - fixed address }>'-■' ' - ■■ . * 

{Handle Attribute Bits - page aligned } r-'-^'- 

{Handle Attribute Bits - may not use special memory) 

{Handle Attribute Bits - may not cross banks } 

{Handle Attribute Bits - Purge level 1 } 

(Handle Attribute Bits - Purge level 2 } 

(Handle Attribute Bits - Purge level 3 } 

(Handle Attribute Bits - test or set both purge bits ( 

{Handle Attribute Bits - block of master pointers } 

{Handle Attribute Bits - system handle } 

(Handle Attribute Bits - not movable } 

(Handle Attribute Bits - locked } 



PROCEDURE 


MMBootlnit; 




FUNCTION 


MMStartUp: 


Integer; 


PROCEDURE 


MMShutDown 






(userlD : 


Integer) 


FUNCTION 


MMVersion: 


Integer; 


PROCEDURE 


MMReset; 




FUNCTION 


MMStatus: 


Boolean; 


PROCEDURE 


BlockMove 






(srcPtr: 


Ptr; 




dstPtr : 


Ptr; 




count : 


Longint) 


PROCEDURE 


CheckHandle 






(theHandle: 


Handle) ; 
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procedure 
pb(x:edure 



PROCEDURE 

FUNCTION 

FUNCTION 
FUNCTION 

PROCEDURE 



PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

FUNCTION 
FUNCTION 

PROCEDURE 

PROCEDURE 

PROCEDURE 

FUNCTION 
PROCEDURE 



PROCEDURE 
PROCEDURE 

PROCEDURE 

PROCEDURE 



CompactHem; 
DisposeAll 

{userlD: 
DisposeHandle 

(theHandle: 
FindHandle 

{locationPtr : 
FreeMem: 
GetHandleSize 

(theHandle: 
HandToHand 

tsourceHandle 
destHandle : 
count : 
HandToPtr 

(sourceHandle 
destPtr: 
count : 
HLock 

(theHandle: 
HLockAll 

(userlD: 
HUnlock 

(theHandle: 
HUnlockAll 

(userlD: 
MaxBlock: 
NewHandle 

(blockSize: 
userlD: 
attributes : 
locationPtr : 
PtrToHand 

(sourcePtr : 
destHandle; 
count : 
PurgeAll 

(userlD: 
PurgeHandle 

(theHandle: 
RealFrGeMem: 
ReallocHandle 

(blockSize: 
userlD: 
attributes : 
locationPtr: 
" theHandle: 
RestoreHandle 

(theHandle: 
SetHandleSize 
(newSize: 
theHandle: 
SetPurge 

(newPurgeLevel 
theHandle: 
SetPurgeAli 

(newPurgeLevel 
userlD: 



i*- 



Integer) ; 

Handle) ; 

Ptr) ; Handle; 
Longint; 

Handle) : Longint; 

: Handle; 
Handle; 
Longint) ; 

: Handle; 
Ptr; 

Longint) ; 

Handle) ; 

Integer) ; 

Handle) ; 

Integer) ; 
Longint; 

Longint; 

Integer; fft^-ft^sii-^.ai^-i 
Integer; w^MsmSSj 
Ptr) : Handle; -**^w*iS!?t} 

Ptr; f:.i'J?*Efssw«5 
Handle; -■-'^^:S*J=-t>ifl«i.J 
Longint) ; - ^ii*»;?feM) 

Integer) ; ~ -p&'ivf'^'.} 

Handle) ; - l^i'^:•■Jfi*A) 

Longint; ^^^^-/.'J.r-iJj-ai^'. ^I^fftS^i- - 

Longint ; f,t*&*J'^-.-<T&'^} 
Integer; tifSl^-'^^^fftfi^i 
Integer; «^?^*t^r -^iT-^j 
Ptr; « *'*«l^'^^-'"->Sii^i J 
Handle) ; ' tt^Jifii ^^--gy.'s-i 

Handle) ; ^ "^^^x i'^\--\^'r^^ 

Longint; «^^* ■?P>-ee«f 
Handle) ; FK,-e-- =i,'-.-i^»*-.J 

: Integer; 

Handle); ; T rC.>.-i^-..-.^v: -K < 

;r«ii;i'-t;;;f.9K " 
: I nteger ; ■ ■"■ "■-■' - -"'^ ' 

Integer) ; . - ■'- -l-.*jj:.'!t-^' . 



f-r 






■^s^^sg&?^r^^i3S?E&^^Ejs??;tT'-'v:.^::-=«?=i5^?i:-^^ .r^-r^y^s-^ 












f-'j'f-,.*.-'-r. 
».■<■:' . -■> 



«^ ;■/ - ; 'i-i ■ J - ^ .. 
■-.1 ;'i;'. >-■'■.. 
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FUNCTION TotalMem: * Longint; 
PROCEDURE AddToOOMQueue 

(headerPtr: Ptr) ; 
PROCEDURE DeleteFromOOMQueue 

(headerPtr: Ptr) ; 

IMPLEMENTATION 
END. 



\ .' Ti^v.* ?; ' 






Menus 



; File: Menus. p 

/ . 

; 

Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 

It-*************-******************************! 



UNIT Menus; 

INTERFACE 

OSES Types, QuickDraw, Events, Controls, Windows; 









CONST mDrawMsg 

mChooseMsg 

mSizeMsg 

mDrawTitlG 

mDrawMItem 

mGetMItemID 

minvis 

mCu St om 

mXor 

mSelected 

mDisabled 

customMenu 

xorMItemHilite 

xorTitleHilite 

underMItem 

disableltem 

disabieMenu 

enableltem 

enableMenu 

noUnderMItem 

colorMItemHilite 

colorTitleHilite 

colorReplace 

standardMenu 

TYPE MenuBarRecHndl 
MenuBarRecPtr 
MenuBarRec 
MenuRecHndi 



= 50000 
= SOOOl 
= S0002 
= $0003 
= S0004 
= S0005 
= $0004 
= $0010 
= $0020 
= $0040 
= $0080 
= $0010 
= S0020 
= S0020 
= S0040 
= S0080 
= $0080 
= SFF7F 
= SFF7F 
= SFFBF 
= $FFDF 
= $FFDF 
= SFFDF 
= SFFEF 



{MenuDefProcCodes - } 

{MenuDefProcCodes - } 
{MenuDefProcCodes - ) 
{MenuDefProcCodes - } 
{MenuDefProcCodes - } 
(MenuDefProcCodes - } 
{MenuFiag ~ 
{MenuFlag - 
(MenuFiag - j ^.p: 
(MenuFlag - 
{MenuFiag - } '*-)^^B 
{HenuFlagMasks - } ..v 
{MenuFlagHasks - ) 
{HenuFlagMasks - ) -.; 
{MenuFlagHasks - ) -X 
{HenuFlagMasks - ) =-I 
{MenuFlagHasks - ) 1 
(MenuFlagHasks - ) ,/-■ 
(MenuFlagHasks - ) 
(MenuFlagHasks - ) h 
{MenuFlagHasks - ) 
{MenuFlagHasks - ) 
{HenuFlagMasks - } r 
(MenuFlagHasks - } 



"MenuBarRecPtr; 
"MenuBarRec; 
CtlRcc; 
"MenuRecPtr; 






x--.i ■. '. 



■ > ; - ■ iv-W 



TOjT(..w:i>." 






'■*•*'..■' <.i. 






Z\l-'i: ' 


:■• Ur-i..:f - 


,-»*f»?.:;-^i;*."' 


:s!-"~.-^-t-.^ 1 


t^'ti^K' ■- ■■. ■ 


:--i\:i^-^ . 


■iV. :■=■ . 


- '-■w-crdj ;••!■. 


I-.-^iv'JJ >4. -/!-■' 


■,::lh>:_ '.: ;> 



■ •.«« 



■ ■ i v* 



■ t' .- 
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MenuRecPtr 


= "MenuRec; 




> i -. .- '• 


Menu Re c 


= 


- ; ( .'■-s^-.-''2 


.- JSif >!:;> ^ ■ 


PACKED RECORD 






y- ;■:'■■';,■;■- -. 


menu ID: 


Integer; ( 


Menu ' s ID number 


] . ' ■ - ■""' " 


menuWidth: 


Integer; ( 


Width of menu ) 


;.J3i>r:''., ■■ ' YK —' 


menuHeight : 


Integer; { 


Height of menu ) 


- -_i_ I:"-' -f. 


menuProc: 


WordProcPtr; { 


Menu's definition 


procedure ) 


menu Flag: 


Integer; { 


Bit flags } 


:.\f-t]^ .■ ■■■ 


firstltem: 


Byte; 




i.-i^r**-.- ■ . 


numOf Items : 


Byte; 


•.'iS-'jit-iS 


■^■■■•'* ■■ '■ ' ■'' 


titleWidth: 


Integer; [ 


Width of menu's title } »'>""'■ j*-^ 


titleName: 


Ptr; 




; ■?.- M "■ -I T ; '. ■ 


ffiKfj 






itDK.- '. ■ 






■;iL- .-JJ^Si^-ji-.-iiK 


: -ri:— t^.-iiitr-'^'-.-Ce' 






', i-iwp-'-!i>; 


: • -'.A- •-.:■•■. 


PROCEDURE MenuBootlnit; 






r:^.' >. : ; '-J- , ■ 


PROCEDURE MenuStartUp 




'.Sll 


; ^ .''■•1 ?i.'.;--.- .- 


(userlD: 


Integer; 


\-iti^p^ ini 


, t-^'^.y -i^-ic ... 


dPageAddr : 


Integer) ; 


. C iyp«.-v.i 


rtiL-y^'u-...,- 


PROCEDURE MenuShutDown; 








FUNCTION MenuVersion : 


Integer; 


1* •■•.■f4^^ ;■'! 


:<-•■■•. vi- -ni- ■■ 


PROCEDURE MenuReset; 








FUNCTION MenuStatus : 


Boolean; 


•. ifa'sa'"--," 


* . -J '^r-^ ■1-':' 


PROCEDURE CalcMenuSize 




ttt*i'' ;* ':i;i~!:^i*^ 


;■ .niiX-yi 


(newWidth: 


Integer; 




.s^ff'-i'^'.-.-.'-^-r' 


newHeight : 


Integer; 




.d:, - ■'■'..■:. ■■■ 


menuNum; 


Integer) ; 


; ;'i\i'>->. ?ti^:iv- 


--S^-.*:-'.- --S-Vf*--*:-'': 


PROCEDURE CheckMItem 






iiV- i- i- •'''.' 


(checkedFlag: 


Boolean; 


tr-a^Ti^isTieV 


: ,'-, ■- -^?:rss,." 


itemNum: 


Integer) ; 


:i-^^A i^^H^iiii-*^- 


:»:■*.■ p ■■* • '■^i 


FUNCTION CountMItems 






„ r -•'■'.< .-: 


(menuNum: 


Integer)": 


Integer; ' ' ' " 


: iMl .■! \.'r.^f "i.y 


PROCEDURE DeleteMenu 






t »'.f'"»l'l'^'*--'"*''i 


(menuNum: 


■ ^ Integer); 


■ --Li'* , 


: ■; /'WiTC/j- J sdr'..--' 


PROCEDURE DeleteMltem 






Ri'': -■ ■. ,v.. vV 


(itemNum: 


Integer) ; 


\.i-r'_i-\..!rl 


- -^Ti i'^",?tl■f^■^ti- 


PROCEDURE DisableMItem 




; ■5»';-^':tt, t 


■, ?.-.»■-■ 'T^-'-C'- J'^cv;- 


{itemNum: 


Integer) ; 


: ; ■<•(>•■ ?ni 


;^C^ >..*J, -■ '■* 


PROCEDURE DisposeMenu 






[;>■ -l. -.--i^, ' :■' 


{menuHandle: 


MenuRecHndl) ; *^-'-'3^ 


ttt,' ■ t,-.,,-^fii 


PROCEDURE DrawMenuBar; 






!?« iX-'^-y"' ■ •' 


PROCEDURE EnableHItem 




.. Sf;^ 7li i 


■ ■^y '. t.v"'s ■; 


(itemNum: 


Integer) ; 


■ M.*p*,!. : 




FUNCTION FixMenuBar : 


Integer; 






PROCEDURE FlashMenuBar; 


-. 


". "- -*(*'.'■■ '■^L 


:t...^U«^cMv- '. 


FUNCTION GetBarColors : 


Longint; 


« c;-^-*'':' 


..H'.'Vi'iv'i--'"'- 1 


FUNCTION GetMenuBar : 


MenuBarRe 


■cHndl; 


• - ' *■ '■■ ■■ • ■ 


FUNCTION GetMenuFlag 




■ * "2 


: ." ''-.*f\ ' 


(menuNum: 


Integer) ; 


Integer; 


■-■'"'• ■ '■ 


FUNCTION GetMenuMgrPort : 


GrafPortPtr; 


•■' . , -•■,■'. 


FUNCTION GetMenuTitle 




.'.ci* =; 


■;-iTj,i(irt,-;-..-,-.i 


(menuNum; 


Integer) : 


Ptr; ■"^■^^ 


' *^,^. '''.-' '?^ - . 


FUNCTION GetMHandie 






■*..,,.. .T - '■- ' 


(menuNum; 


Integer) : 


MenuRecHndl; 


- . • 


FUNCTION GetMItem 






f-a : ;. ,' •' ■ 


(itemNum: 


Integer) : 


StringPtr; 


Ml k;-, i ■ 


FUNCTION GetMItemFlag 




- ■ -■ - ■ 


(itemNum; 


Integer) : 


Integer; 


- 
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: -s*x n<f- 



;.^i.i 



FUNCTION GetMItemMark 

[itemNum: 
FUNCTION GetMItemStyle 
(itemNum: 
FUNCTION GetMTitleStart : 
FUNCTION GetMTitleWidth 

(menuNum: 
FUNCTION GetSysBar: 
PROCEDURE HiliteMenu 

(hiliteFlag: 
raenuNum: 
PROCEDURE InitPalette," 
PROCEDURE InsertMenu 

(addMenu Handle: 
insertAfter: 
PROCEDURE InsertHItem 

{addltemPtr: 
insertAfter ; 
menuNum: 
FUNCTION MenuGlobal 

(menuGlobalMask : 
PROCEDURE Menu Key 

(taskRecPtr: 
barHandle: 
PROCEDURE MenuNewRes; 
PROCEDURE MenuRefresh 

(redrawRoutinePtr : 
PROCEDURE MenuSelect 

(taskRecPtr: 
barHandle; 
FUNCTION NewMenu 

(menuStringPtr : 
FUNCTION NewMenuBar 

(theWindowPtr: 
PROCEDURE SetBarColors 

(newBarColor ; 
newl nvertColor : 
newOutColor : 
PROCEDURE SetMenuBar 

(barHandle: 
PROCEDURE SetHenuFlag 

(newValue: 
menuNum: 
PROCEDURE SetMenuID 

(newMenuNum: 
curMenuNum: 
PROCEDURE SetMenuTitle 
{newStr: 
menuNum: 
PROCEDURE SetMItem 

(newItemLine : 
itemNum: 
PROCEDURE SetMItemBiink 

(count: 
PROCEDURE SetHIteinFlag 

(newValue: 
i t emN u m : 



, ,iV-* 



Integer) : Integer; 

Integer) : TextStyle; 
Integer;^^..^..^ , 

Integer) : Integer; 
MenuBarRecHndl ; 

Boolean; 

Integer) ; -, 



MenuRecHndl; 
Integer) ; 



,H?>^i';i 



. :« 




j.'.^«^*;tf; ' 


got •*-■." ■ 


■ -.-J-A-iJ 


;"*!.%-' s ■ * ' ' 


: ■■■ ' .^;- 


: «r-;-r".' " ■ ■-■ 


--y^ ;.: ; 


•,:i: ■^.- . > . 


i: j« 


■ :><^^J.. ■■ 



Ptr; 

Integer; 
Integer) ; 






■■.ir..::-.t 



Integer) : Integer; 



WmTaskRec; 


- s jw i iS-*^'^ 


■ r,u',.- '• -V" 


MenuBarRecHndl) ; 


^ 'i .■ V-' ■ ■ " "^ ■ - 




-.^Tjv.3»; : 


. n .-'i-'j'-- :•-*-■■ '. 




y^^K' 


■--•^;!.fii"J 


VoidProcPtr) 


' , .■^^■flSi* 




WmTaskRec; 


Ife-'j^Ort 


: -3:5 i '■'■■■--.» -■£■'■'- ■ 


MenuBarRecHndl) t 

■'- .'«.?. 


*-!:-.'> 1 






5-^--ii>''.V. ■-.- 


Ptr) : MenuRecHndl; 


; *..-^>*j*'.«--<i 






''■■SffW ■■-'>i ' 


WindowPtr) : 


MenuBarRecHndl; 




Integer; 


i i-?-3<^i.-rti'*'; 


.., ■^:-'-;*.'. * 


Integer; 




--/.>;■■ -T^. ':(-• 


Integer) ; 


■ {-jrt-^fs ;*>i J 




MenuBarRecHndl]! 4^3^,..,^;^ 


;«^".-"i;-tf>. '.*ss' 






-, -I.- fl.-,.«K*r>;. -_"". 


Integer; 




■...rt'-^x.,.}:- -r- 


Integer) ; 


; tj.ii^-9i\i 


-,V;^--:i:. ■, ■ 




■. ;#-^s^ti I 


^ .-l^-', .'i>f- * - -L 


Integer; 




■•;"'.t--?J-«M,i-i : ' 


Integer) ; 


X si^fiihi 


i^'iiij^:'-.-:- -■■"• 


•^ -*-^ 


•;-sff^'-3c:;is¥! 


. ■■*- u ■.•:■■■* 


Str255; 




r* i-'^. -.:.•■--■■ ■ 


Integer) ; 


, V -Aisft^nj 


].-.^7.yi*. 




■j*.5-^'*Ti.;'^ 


: i-'-' ;.>.■(':►•*.,'■».' 


Str255; 




-*; ,"'"-' '■''•'' ■' 


Integer) ; 


J ■ ; '•.ffsr^.y.^' ■ 


i>v,V?'.' -vr>i.; 



Integer) ; 

Integer; 
Integer) ; 






■.I'"..' -:■-.?) 



. ''■ ; <■ ': 
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v^- 



K^' 



PROCEDURE SetMItemID 

{newItemNum: 
curltemNum: 
PROCEDURE SetMItemMark 
(mark: 
itemNum: 
PROCEDURE SetMItemName 

itemNum: 
PROCEDURE SetHItemStyle 

{theTextStyle: 
itemNum: 
PROCEDDRE SetMTitleStart 

(xStart: 
PROCEDURE SetMTitleWidth 
{newWidth: 
menuNum: 
PROCEDDRE SetSysBar 

(barHandle: 
FUNCTION PopUpMenuSelect 
(selection : 
currentLeft; 
currentTop: 
flag: 

menuHandle: 
FUNCTION GGtPopUpDefProc: 
PROCEDURE DrawPopUp 

(selection: 
flag: _,^,-_ 
right: 
vjd V. bottom: ,jr jjfl*?(aa ^> 
left : 

msnuHandle: ji» jk^* 
FUNCTION NewMGnuBar2 - --* 
:0 5*t (refOGsc: 

menuBarTemplateRef : 
windowPortPtr: 
FUNCTION NewMenu2 ..,.,. „,.^ „. 
(refDesc: 
menuTemplateRef : 
PROCEDURE InsertMItem2 ...-:. 
(refDesc: -(n.^ ;..* •/ ■ 
menuTemplateRef: 
insert After: 
menuNum: 
PROCEDURE SetMGnuTitle2 
(refDesc:^ 
, titleRef: 
menuNum: 
PROCEDURE SetMItem2-:t; i- 1 
, _,^. (refDesc: 

menuItemTempRef : 
menuItemlD: if*??*' 
PROCEDURE SetMItemName2 -:-.■ i^ jjn 
{ refDesc : j/.t ; .^ '.*,-«-:*yr_ 
titleRef: 
1 Vi.'Li^': menuItemID: • ■• •■■;» 









Integer; 
Integer) ; 

Integer; 
Integer) ; 

Str255; 

Integer) ; 

TextStyle; 
Integer) ; 

^ ■,- * •- 
Integer) ; 

Integer; 
Integer) ; 

MenuBarRecHndl) ; 



'■\^ff?.^s^%j?^^.rx^^-jxti5/-y^.-j^^'-'^-^~^'------. 



■^3--?i.v; .. 



.'.■J-^^-q- 



j:!-' 



Integer; 

Integer; 

Integer; 

Integer; 

MenuRecHndl) : Integer; 

Ptr; 

'^:! - :»*») 
Integer; :.£t. - X&JWJ 
Integer; -.jw - i:Ai£»J 
Integer; ,^ hai.t^-'f^'. 
Integer; ,tfn - Jfebt?*.} 
Integer; * l^S" t^trf 
Integer; ,.?« - itJ:^»? 
MenuRecHndl) ; ;-^^k;" 

RefDescriptor; - l^ff^': 

Ref ; 

GrafPortPtr) : MenuBarRecHndl; 

RefDescriptor; ' is^i 
Ref) : MenuRecHndl; Sj 

RefDescriptor; ^ijiM;^ 
Ref; ■!ii^.--rn 'S^iv^*'' 
Integer; ■ - ' - KriJiJ 
Integer) ; A-stl«HP»3 J 

RefDescriptor; f^tMt 
Ref; 'yjK &« - ^i^,^ 
Integer>»' -Sffit fhiK? 

RefDescriptor; li^?«; 
Ref; lbj«( 

Integer); «(-■ !■*.»;*: 

RefDescriptor; ibi*** 
Ref; f -^Ti- ■^.■•J 
Integer) ; -v.- ■ ir-rrfi! 












■,-a^o^> 


V 


' 'r^jr-siifp'.- 


r^ssii 


-- 


'■-'". -»<■;■■! •" ; 


;6f*i5U 


■'• 


. ■; ■ ,■> '~ ':'!. ' 


c^«ii 


J - 


■ ■■.:, --. :- 


■ '■-•o-,-- 




T-f^L ■-. : 


iSC- V* 




■■■^3'^zU ^-■..- ■ 


>H-'-? 


' 


■I •.■ '. .-.■. ■ 


'■!»£l'S,=: 




i \. ■■'. v't -v .- 


f )A^.S.-^. 




•i^.n- v-^::;.., •: 


. :i;.5>J-£J 




^.^,,-. 


;i?.i.S--: 


.♦ 


.i., :,-.'iv. I. -.'.... ■• 


V>'!i-"t 




■■-'I/--;,--'."-^ 


; >:ie\*^: 




.. . .: .^j.^._. . 


.3fw^.;' 


- 


Ji/ ■ .* T't ■ 



^^ 
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PROCEDURE HideMenuBar; 
PROCEDURE ShowHenuBar: 

IMPLEMENTATION 
END, 












MIDI 

S ******************** He ************ ******!**** 

File: MIDI.p , ; -.■sV^r. 5.--i 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 

******************************************** 



UNIT MIDI; 

INTERFACE 
USES Types; 

CONST ralToolNum 

mlDrvrFileType 
miNSVer 

miSTVer 



miBadFreqErr 

miClockErr 

miConf lictErr 

mlNoDevErr 

m 1 DevN o t Ava i 1 

raiOevSlotBusy 

miOevBusy 

miDevOverrun 

mlDevN oCo nn e ct 

mlDevReadErr 

miDevVersion 

mlDevIntHndlr 



S0020 
$OOBB 
$0102 

S0203; 



miDrvrAuxType 


= 


S0300 


miStartUpErr 


= 


S2000 


miPacketErr 


= 


$2001 


miArrayErr 


= 


$2002 


mlFullBufErr 


= 


S2003 


miToolsErr 


= 


$2004 


KiiOutOffErr 


= 


$2005 


miNoBufErr 


= 


$2007 


miDriverErr 


= 


$2008 



= S2009; 

= S200A 
= $200B 
= S200C 
= $2080 
= S2081 
= 52082 
= $2083 
= $2084 
= S2085 
= S2086 

= S2087, 



;1 .*->»-.; 

■" '.i'?'^ i E :'■ t' ■■■ '•*^- 



>.A 1m i • .' I Jl^nfc-''. 'vt' -fl^ff-'-^ 



: :'>9J. :'■■'■■ • 



{Midi - the tool number of the MIDI Tool Set } ''•" ' 

(Midi - filetype of MIDI device driver } 

(Midi - minimum version of Note Synthesizer 

required by MIDI Tool Set ) 

(Midi - minimum version of Sound Tools needed by 

MIDI Tool Set ) 

{Midi - aux type of MIDI device driver ) 

{Midi - MIDI Tool Set is not started } 

{Midi - incorrect length for a received MIDI command } 

(Midi - a designated array had an insufficient or 

illegal size } 

{Midi - input buffer overflow > iz-^vi-vrivr.-. .** 

(Midi - the required tools were not started up or 

had insufficient versions } 

(Midi - MIDI output must first be enabled } 

(Midi - no buffer is currently allocated } 

(Midi - the designated file is not a legal MIDI 

device driver } 

(Midi - the MIDI clock cannot attain the requested 

frequency } 

{Midi - the MIDI clock value wrapped to zero } 

{Midi - conflicting processes for MIDI input } 

{Midi - no MIDI device driver loaded ) 

{Midi - the requested device is not available } 

{Midi - requested slot is already in use ) 

{Midi - the requested device is already in use } 

{Midi - device overrun by incoming MIDI data ) 

(Midi - no connection to MIDI ) 

{Midi - framing error in received MIDI data } 

(Midi - ROM version is incompatible with device 

driver } 

{Midi - conflicting interrupt handler is installed ) 
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-._:■ 




miSetClock 


= 


soooo 








miStartClock 


= 


$0001 






r 


miStopClock 


= 


soao2 






miSetFreq 


= 


S0003 




■■-- 


'\ J 


miRawHode 


= 


SOOOOOOOO 






miSetRTVec 


= 


SOOOO; 




*■ 


miPacketMode 


- 


SOOOOOOOl 






miSetErrVec 


= 


SOOOl; 


V 




miStandardMo 


= 


S00000002 






miSetlnBuf 


= 


S0002 




,r 




- . miSetOutBuf 


= 


S0003 




V 




miStartlnput 


= 


S0004 








miStartOutput 


= 


S0005 




•>''■ 




mistoplnput 


= 


S0006 








miStopOutput 


= 


$0007 








iniFlushlnput 


= 


$0008 








miFlushOutput 


= 


S0009 








miFlushPacke 


= 


SOOOA 








miWaitOutput 


= 


SOOOB 




•: 




miSetlnMode 


= 


SOOOC 




'■ 




miSetOutMode 


= 


$000D 








miClrNotePad 


= 


$000E 








tniSetDelay 


= 


$000F 








miOutputStat 


= 


$0010 




■'. 




milgnoreSysEx 


= 


$0011 




^ 




af!M8^ miSelectDrvr 


= 


SOOOO 




*- 


miLoadDrvr 


= 


SOOOl 




. 




miUnloadDrvr 


= 


S0002 








mlNextPktLen 


= 


$0; 






mi Input Chars 


= 


$0001 






/ 


miOutputChars 


= 


$0002 






miMaxInChars 


= 


$0003 





: -(.'v. . 



tW 



mlMaxOutChars 

miRecordAddr 

miPlayAddr 

miClockValue 

miClockFreq 



= $0004; 

= $0005 
= S0006 
= S0007 
= $0008 



[MidiClock - set time stamp clock ) 
{MidiClock - start time stamp clock } 
{MidiClock - stop time stamp clock } 
{MidiClock - set clock frequency ) 

i; {MidiControl - raw mode for MIDI input & output 1 

{MidiControl - set real-time message vector } 
; {MidiControl - packet mode for MIDI input and output ) 
{MidiControl - set real-time error vector } 

:; {MidiControl - standard mode for MIDI input and output } 
{MidiControl - set input buffer information } 
(MidiControl - set output buffer information ) 
(MidiControl - start MIDI input } ' * " 

(MidiControl - start MIDI output } .- 

{MidiControl - stop MIDI input } ■'.*'-.■- * '-•' 

(MidiControl - stop MIDI output ) 

{MidiControl - discard contents of input buffer } 

(MidiControl - discard contents of output buffer } 

{MidiControl - discard next input packet } 

{MidiControl - wait for output buffer to empty } 

{MidiControl - set input mode } 

(MidiControl - set output mode ) 

(MidiControl - clear all notes marked on in the notepad ) 

(MidiControl - set minimum delay between output packets } 

(MidiControl - enable/disable output of running - status ) 

(MidiControl - ignore system exclusive input } 

{MidiDevice - display device driver selection dialog ) 

{MidiDevice - load and initialize device driver ) 

(MidiDevice - shutdown MIDI device, unload driver) :.. 

{Midilnfo - return length of next packet } 

(Midilnfo - return number of characters in input buffer ) 

(Midilnfo - return number of characters in output buffer) 

(Midilnfo - return maximum number of characters in 

input buffer } 

(Midilnfo - return maximum number of characters in 

output buffer } 

{Midilnfo - return current MidiRecordSeq address } 

{Midilnfo - return current MidlPlaySeq address } 

{Midilnfo - return current time stamp clock value) 

(Midilnfo - return number of clock ticks per second } 



%'^ 



{ size of buffer (0 for default) ) 

{ address of buffer (0 for auto- allocation) 



TYPE MiBuflnfo 
RECORD 

bufSize: Integer; 

address: Ptr; 
END; 

MiDriverlnfo ^^ i^tHM-Mnt v^-.>«l;f-b iX&S - ji^^itiT*! USf-^a - ■■'tz ■■ 

RECORD A.:y^'i 4^»-\ vt^ ,^zis-^^f,^l.i au», ■,. 'V.».-i.^1 •%^e*H' - - '}^trc.- 

slot : Integer; { device slot ) 

external: Integer; { slot internal (=0) / external (=1) ) 

pathname: PACKED ARRAY[1..65] OF Byte; { device driver pathname 

END; .--.-.. 



PROCEDURE MidiBootlnit; - ^.^, ^i^y,, ^^ y^,-. ^y - :,,,,^, :nwO^-.^ 

PROCEDURE MidiStartUp ^^j if,^^-,, U^ A-.iz\&- ;^.;or.> ^ 

(userlD: ,,^, ^^^ ...jy^j Integer; ;«-. j,--; .;> ^J.- : -i Ui^'f^i ^ 

directPages: ,.1,,,;.; ^ Integer); .j-^ ='sJ<a'{'; ■y>-->-<'i; •- 

PROCEDURE MidiShutDown; ...ynyf- .** -n . -*V^'- "':-'i: >- 



\--:-.' -v.'M. .'-■ 
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FUNCTION 


MidiVersion: , ■ , 


U > : .-■ 'vTSt 


Integer;^-" 




>:- '0? ' 


PROCEDURE 


MidiReset; ;-..- 


i-.- r*?-:-? 


■ ir 


- S-T-c/'ac-JKi 


-iT.iHjv 


FUNCTION 


MidiStatus: f\ 


,1.' ■- i-jtBfi.: 


Boolean;^-- 


- K-^:rj'fi>-.K': 


. ::r'»2 - 


PROCEDURE 


MidiClock ; 


^^ffl-^yv*^'- 




fju .■■:-;&■ i^' 


;L'r:.»; '• 




f-.'.f (f uncNum: .^ 


-.-.iin -.■r^': 


Integer; 


■■■» -.'^rv -il^J?*; 


■ -'-/CC-'^-TJl -* 




arg: ..(j. 


XSSI 'sai 


Longint) ; 


-:>;;•■-:.>:?.»•/.( 


;f>a:;.^ - 


PROCEDURE 


MldiControl :aiK ir-1. »* 




.^■».-E^'.'.i*y*.rJi-> 


.'tJff<>?vfi--'>« -^ 




(controlCode: *» sc-&i.i 


Integer) ; 


^^^-^.i^iUf 


.ioiia-r - 


PROCEDURE 


HidiDevice 


A efr*?*.' 




.-il.Vl^iH] 


•;s,<jai:.i.^(*i ■' 




( (funcNum: 


tiS't^-V?^ 


Integer; 


^-i.!".-- j-t>;^; 


;;liC^>.- - 




driverlnfo 


vi^ts.-: ,^ 


■.■?,<&«) ;->-..- ■ 


i..^. *;.-.-■:;;rlKi 


•.(OVj')^ ■ 


FUNCTION 


Hidilnfo 


-jfi^l ;i 


; ■-■; v.'-*<..-i .■ - 


:«l}.rft; :-.Ai^i 


..•::'>.''! - 




{funcNum: 


-i:*3--«> ■ 


Integer) : 


Longint; IB\ 


;'*,C-X'? - 


PROCEDURE 


MldilnputPoll; 


:.■ i^'tfTi : 




■ a!' I 


.;■.•/■;:■-;; - 


FUNCTION 


MidiReadPacket 


■*(:Ct^^"» - 


-:a=H ^s-f. ■ 


...- iJrr./y.t.r-;) 


..-iy-O' - 




___. {arrayAddr : 


-;,;->■«,'■ ■,-■- 


Ptr; 


■ . .- . 


■::?:>-.i;i' 


J 


--% arraySize: 


:iSa-'ifi.- 


Integer) : 


Integer; IK) 


^s;j;^.-^-j - 


FUNCTION 


MidiWritePacket 


■tr.t JX" 




jj;. ■■-;•.-;. 


:AOv^'?- - 




(arrayAddr: 


.T^J^tfC 


Ptr) ;, Integer; ;>Oi.Viiii 


■.a';^..--- - 






IMPLEMENTATION -,,' 



>• " ■ '^X-/ 



';('.-■ ^fi'.:- -. 









MiscTool 



************************************** ^ >">iivT i.1.—' '^) 
Copyright Apple Computer, Inc. 1986-89 ' ^«*-«^ 1lr^:'■i:T; 



I ****** 

File: MlscTool.p 



1 v^y-z • 


- 'J -ir ■ 


.■5,' K 


.■."*>: 5 


v'flW-s.- 


■- '^t 


-.i^v't-*;- ' 


* ji :'• 


t^,>-I!-"i * 


; ' '.i.' 



All Rights Reserved 

******************************************** 1 

UNIT MiscTool; 









INTERFACE 
USES Types; 






-a TS^ 0/ ■i«^l«c ?c- 251* > 



CONST 



badlnputErr 

noDevParamErr 

tasklnstlErr 

noSigXaskErr 

queueDmgdErr 

taskNtFdErr 



= S0301; {error - bad input parameter } 

= $0302; {error - no device for input parameter } 

= S0303; {error - task already installed error } 

= S030^; {error - no signature in task header ) " 

= S0305; {error - queue has been damaged error ) 

= S0306; {error - task was not found error ) 



firmTaskErr ■-'^ i^vi = $0307; {error - firmware task was unsuccessful } 



hbQueueBadErr 

unCnctdDevErr 

idTagNtAvlErr 

pdosUnClmdIntErr 

divByZeroErr 

pdosVCBErr 

pdosFCBErr 



= S0308; {error - heartbeat queue damaged } 

= S0309; (error - attempted to dispatch to unconnected device ) 

= 5030B; {error - ID tag not available } 

= SOOOI; (System Fail - ProDOS unclaimeci interrupt error ) 

= $0004; (System Fail - divide by zero error } 

= $O0OA; (System Fail - ProDOS VCB unusable } 

= SOOOB; (System Fail - ProDOS FCB unusable ) 
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pdosBlkOErr 

pdosIntShdwErr 

segLoaderlErr 

sPackageOErr 

packagelErr 

pack:age2Err 

package3Err 

packagelErr 

packageSErr 

packageSErr 

package7Err 

packageSErr 

package9Err 

packagelOErr 

packagellErr 

packagel2Err 

outOfMemErr 

segLoader2Err 

fMapTrshdErr 

stkOvrFlwErr 

psInstDiskErr 

memMgrlErr 

memMgr2Err ' 

raemMgr3Err 

memMgr4Err 

memMgrSErr 

memMgrSErr 

niemMgrVErr 

memMgrSErr 

memMgr9Err 

memMgrlOErr 

memMgrllErr 

raemHgrl2Err 

memMgrl3Err 

memMgrlOErr 

memMgrlSErr 

memMgrl6Err 

memMgrl7Err 

memMgrlSErr 

mGmMgrl9Err 

mG[nMgr20Err 

mGmHgr21Err 

meinMgr22Err 

memMgr23Err 

raemMgr2'JErr 

mGmMgr25Err 

memMgr2 6Err • 

memMgr2 7Err 

mefnMgr28Err 

meraMgr2 9Err 

memMgr30Err 

mGmMgr31Err 

mGmMgr32Err 

memMgr33Err 

memMgrSOErr 

stupVolMntErr 

plPrntModem 

plLineLnth 



I - 



= SOOOC; {System Fail - ProDOS block zero all 
= SOOOD; {System Fail - ProDOS interrupt w/ s 
= S0015; {System Fail - segment loader error 
= $0017; {System Fail - can't load a package 
■'^■$0018; {System Fail - can't load a package 
=$0019; {System Fail - can't load a package 
= SOOIA; {System Fail - can't load a package 
= $001B; {System Fail - can't load a package 
= SOOIC; {System Fail - can't load a package 
= SOOID; {System Fail - can't load a package 
= SOOIE; {System Fail - can't load a package 
= $0020; {System Fail - can't load a package 
= $0021; {System Fail - can't load a package 
= S0022; {System Fail - can't load a package 
= S0023; (System Fail - can't load a package 
= $0024; {System Fail - can't load a package 
= $0025; {System Fail - out of memory error ) 
= $0026; {System Fall - segment loader error 
= $0027; {System Fail - file map trashed } 
= $0028; (System Fail - stack overflow error 
= S0030; {System Fail - Please Insert Disk (f; 
= $0032; {System Fail - memory manager error 
= S0033; {System Fail - memory manager error 
= S0034; (System Fail - memory manager error 
= S0035; {System Fail - memory manager error 
= $0036; {System Fall - memory manager error 
= $0037; (System Fail - memory manager error 
= S0038; {System Fail - memory manager error 
= $0039; {System Fall - memory manager error 
= S003A; (System Fall ~ memory manager error 
= $003B; (System Fall - memory manager error 
= $003C; {System Fail - memory manager error 
= S003D; {System Fail - memory manager error 
= $003E; (System Fail - memory manager error 
= $003F; (System Fail - memory manager error 
= $0040; {System Fail - memory manager error 
= $0041; {System Fail - memory manager error 
= $0042; (System Fail - memory manager error 
= $0043; (System Fail - memory manager error 
= $004 4; (System Fail - memory manager error 
= 50045; {System Fail - memory manager error 
= $0046; {System Fail - memory manager error 
= $0047; (System Fail - memory manager error 
= $0048; {System Fail - memory manager error 
= $0049; (System Fail - mGmory manager error 
= $004A; {System Fail - memory manager error 
= S004B; (System Fail - memory manager error 
= S004C; {System Fail - memory manager error 
= S004D; (System Fail - memory manager error 
= S004E; {System Fail - memory manager error 
= $004F; {System Fail - memory manager error 
= $0050; (System Fail - memory manager error 
= 50051; (System Fall - memory manager error 
= S0052; (System Fail - memory manager error 
= 50053; (System Fail - memory manager error 
= SOIOO; (System Fail - can't mount system sta 
= 50000; {Battery Ram Parameter Ref Number - 
= 50001; (Battery Ram Parameter Ref Number - 
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plDelLine 

plAddLine 

plEcho 

plBuf fer 

plBaud 

plDtStpBits 

plParity 

plDCDHndShk 

plDSRHndShk 

plXnfHndShk 

p2PrntModem 

p2LineLnth 

p2DelLine 

p2AddLine 

p2Echo 

p2Buffer 

p2Baud 

p2DtStpBits 

p2Parity 

p2DCDHndShk 

p2DSRHndShk 

p2XnfHndShk 

dspColMono 

dsp40oraO 

dspTxtColor 

dspBckColor 

dspBrdColor 

hrtz50or60 

userVolume 

bellVolume 

sysSpeed 

sltlintExt 

slt2intExt 

sltaintExt 

slt4intExt 

sltSintExt 

slteintExt 

slt7intExt 

startupSlt 

txtDspLang 

kybdLang 

kyBdBuf fer 

kyBdRepSpd 

kyBdRepDel 

dblClkTirae 

flashRate 

shftCpsLCas 

fstSpDelKey 

dualSpeed 

hiMouseRes 

dateFormat 

clockFormat: 

rdMinRam 

rdMaxRam 

langCount 

langl 

lang2 

lang3 
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$0002; 

S0003 

S0004 

S0005 

S0006 

S0007 

S0008 

S0009 

SOOOA 

S0008 

SOOOC 

SOOOD 

SOOOE 

$000P 

SOOIO 

soon 
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$0013 

$0014 

$0015 

S0016 
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$0018 

S0019 

$001A 

$001B 

SOOIC 

SOOID 

$001E 

SOOIF 

$0020 

$0021 

S0022 

$0023 

$0024 

$0025 

$0026 

$0027 

S0028 

S0029 

$002A 

$002B 

$002C 

$002D 

S002E 

$002F 

$0030 

S0031 

$0032 

$0033 

S0034 

$0035 

$0036 

$0037 

S0038 

S0039 

5003A 

5003B 
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langS ■(■i-^-Jfj* 
iangS -.^Z-jetX 
lang7 ■■^'.: t*il 
langS li 
layoutCount ^Jt 



layoutl 

laYout2 

layouts 

layouts 

layouts 

layoute 

layout? 

layouts 

layout9 

layoutlO 

layoutll 

layoutl2 

layout 13 

layout H 

layout 15 

layout 16 

aTalkNodeNo 

irqlntFlag 

irqDataReg 

irqSeriall 

irqSerial2 

irqAplTlkHi 

tickCnt 

irqVolume 

IrqActive 

irqSndData 

brkVar 

evMgrData 

mcuseSlot 

mouseClaraps 

absClamps 

sccIntFlag 

extVGCInt 

scanLineInt 

adbDataInt 

ADTBDataInt 

oneSecInt 

quartSecInt 

vbint 

kbdint 

kybdEnable 
kybdDisable 

vblEnable 
vblDisable 
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S0050 
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50003 
50004 
$0005 
$0006 
50007 
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(Hardware Interrupt Status - Returned by 
GetlRQEnable } 

(Hardware Interrupt Status - maintained for 
compatiblity with old interfaces } •■' 
(Hardware Interrupt Status - Returned by 
GetlRQEnable } 

(Hardware Interrupt Status - Returned by 
GetlRQEnable ) 
(Hardware Interrupt Status - Returned by ^'V. •■ 
GetlRQEnable } ""■- -.. 
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GetlRQEnable ) 

{ Interrupt Ref Number - Parameter to IntSource ) 
( Interrupt Bef Number - Parameter to IntSource ) 
( Interrupt Ref Number - Parameter to IntSource } 
(Interrupt Ref Number - Parameter to IntSource ) 



1 , -V, 

.r;-s; ■•■■ 









Appendices 30^* ■ri^UQ'^ 



C-9^'> 



Apple IIGS Toolbox Units 



qSecEnable 


; 


'-. 


qSecDisablG 


j 


5 


oSecEnable 


. ^ 


s 


oSecDisable 




T 


adbEnable 


I - 


1 


adbDisable 


; .- 


1. 


scLnEnable 


1 - 


3 


scLnDisable 


; - 


« 


exVCGEnable 


i • 


■4 


GxVCGDisable . 


r 


> 


mouseOf f 


f - 


?, 


transparent 


! - 


7 


transParnt 


t ■ 


■! 


movelntrpt 


i - 


-, 


bttnlntrpt 


t ' 


^ 


bttnOrMove 


1 - 


: 


mouseOffVI 


■ - 


V 


transParntVI 






transparentVI 






movelntrptVI 


'. " 




bttnlntrptVI 


< 


7 


bttnOrMoveVI 


t 




toolLocl 


; - 


; 


toolLoc2 






usrTLocl 






usrTLoc2 






intrptMgr 






CopMgr 






abortMgr 






sysFailMgr 






aTalklntHnd 






sccIntHnd 






scLnlntHnd 






sndlntHnd 






vbllntHnd 






mousGlntHnd 






qSecIntHnd 






kybdlntHnd 






adbRBIHnd ; 


t-*^^ 


^ 


adbSRQHnd 






deskAccHnd j 


■5-:.ft St! 


flshBufHnd 






kybdMicHnd -s 


ts^:V^i 


oneSecRnd 






extVCGHnd ',6>-:iK 


■^f 


otherlntHnd 




i 


crsrUpdtHnd * 


y^'i 


'■.' 


incBsyFlag 






decBsyFlag i 


tn*!." 


I- 


bellVector 






breakVector -_i 


S-^-.i 


ii 


trace Vector 






stepVector i 


f-'i.; 


.. 


ctlYVector 






proDOSVctr 


UJ 


-. 


osVector 


■■ ;-t 




msgPtrVctr 


:..■'. 





S0004 
$0005 

S0006 
$0007 
SOOOA 
SOOOB 
SOOOC 
SOOOD 
SOOOE 
SOOOF 
SOOOO 
SOOOl 
SOOOl 
S0003 
S0005 
S0007 
$0008 
$0009 
$0009 
SOOOB 
SOOOD 
SOOOF 
$0000 
$0001 
$0002 
$0003 
$0004 
S0005 
$0006 
$0007 
$0008 
S0009 
SOOOA 
SOOOB 
SOOOC 
SOOOD 
SOOOE 
SOOOF 
$0010 

soon 

$0012 

$0013 
$0014 

S0015 
S0016 
S0017 
$0018 
$0019 
SOOIA 
SOOIB 
SOOIC 
SOOID 
SOOIE 
S0028 
$002A 
$002B 
S002C 



(Interrupt Ref Number - Parameter to 

(Inter'rupt Ref Number - Parameter to 

{Interrupt Ref Number - Parameter to 

{Interrupt Ref Number - Parameter to 

{Interrupt Ref Number - Parameter to 

{Interrupt Ref Number - Parameter to 

(Interrupt Ref Number - Parameter to 

(Interrupt Ref Number - Parameter to 

{Interrupt Ref Number - Parameter to 

(Interrupt Ref Number - Parameter to 

{Mouse Mode Value - 

{Mouse Mode Value - 

{House Mode Value - 

{Mouse Mode Value - 

{Mouse Mode Value - 

{Mouse Mode Value - 

(Mouse Mode Value - 

(Mouse Mode Value - 

(Mouse Mode Value - 

{Mouse Mode Value - 

{Mouse Mode Value - 

{Mouse Mode Value - 

(Vector Ref Number - 

(Vector Ref Number - 

{Vector Ref Number - 

{Vector Ref Number - 

{Vector Ref Number - 

{Vector Ref Number - 

(Vector Ref Number - 

(Vector Ref Number - 

(Vector Ref Number ~ 

{Vector Ref Number - 

{Vector Ref Number - 

{Vector Ref Number - 

{Vector Ref Number - 

(Vector Ref Number - 

(Vector Ref Number - 

(Vector Ref Number - 

{Vector Ref Number - 

(Vector Ref Number - 

(Vector Ref Number - 

( Vector Ref Number - 

(Vector Ref Number - 

(Vector Ref Number - 

{Vector Ref Number - 

(Vector Ref Number - 

( Vector Ref Number - 

(Vector Ref Number - 

( Vector Ref Number - 

(Vector Ref Number - 

{Vector Ref Number - 

{Vector Ref Number - 

{Vector Ref Number - 

(Vector Ref Number - 

(Vector Ref Number - 

(Vector Ref Number - j j .■*■,/; .- 

{Vector Ref Number - } v... -c? 



IntSource ) 
IntSource } 
IntSource ) 
IntSource ) 
IntSource ) 
IntSource ) 
IntSource ) 
IntSource ) 
IntSource } 
IntSource } 



old name) } 

.vS-^,;3 - 
*■''. i - 
.•■■r't-n - 

old name) } 

-ieoc* ■■- 
..^^ ' 






■ -.-■ ^ .■ ■ 



i.-y--! fc. 



Appendices 



:>•' --^^^.r.A 



C-60 



Apple iIGS Toolbox Units 



y v_/ 



v^ 



"ClampRecPtr^ 
"ClampRec; 



Integer , - 
Integer; 
Integer; 
Integer; 



TWRecPtr; 
'FWRec; 



Integer; 
Integer; 
Integer; 
Integer; 



^MouseRecPtrj 
"MouseRec; 



TYPE ClampRecHndl 
ClampRecPtr 
ClampRec 

RECORD 

yMaxClamp: 
yHinClamp; 
xMaxClamp: 
xMinClamp; 
END; 

FHRecHndl 

FWRecPtr 

FWRec 

RECORD 

yRegExit; 
xRegExit: 
aRegExit: 
status: 
END; 

MouseRecHndl = 
MouseRecPtr 
MouseRec = 

PACKED RECORD 
mouseMode: 
mouseStatus: 
yPos : 
xPos ; 
END; 

Inter ruptSt at eRecHndl 
InterruptStateRecPtr 
Inter ruptStateRec 

PACKED RECORD 
irq_A; 
irq_X: 
irq_Y 
lrq_S ; 
irq_D; 
irq_P; 
irq_DB : 
irq_e : 
irq_K : 
lrq_PC: 
irq_state : 
irq_shadow: 
irq_mslot : 
END; 



PROCEDURE MTBootlnit; 
PROCEDURE MTStartUp; 
PROCEDURE MTShutDown; 
FUNCTION MTVersion: 
PROCEDURE MTReset; 
FUNCTION MTStatus: 
PROCEDURE ClampMouse 

(xHinClamp: Integer; 
xMaxClamp: Integer; 
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yMinClamp: Integer; 
yMaxClamp: Integer) ; 
PROCEDURE ClearMouse; 
PROCEDURE CIrHeartBeat; 
PROCEDURE DeletelD 

(idTag: Integer) ; 
PROCEDURE DelHeartBeat 

(taskPtr: Ptr) ; 
FUNCTION FWEntry 

■ (aRegValue : Integer; 
xRegValue: Integer; 
yRegValue : Integer ; 



eModeEntryPt: Integer) ; FWRec; 
CI amp Re c; 



FUNCTION GetAbsClamp: 
FUNCTION GetAddr 

(refNum; 
FUNCTION GetlRQEnable: 
FUNCTION GetMouseClamp: 
FUNCTION GetNewID 

(idTag: 
FUNCTION GetTick: 
FUNCTION GetVector 

(vectorRefN 
PROCEDURE HomeMouse; 
PROCEDURE InitMouse 

(mouseSlot : 
PROCEDURE IntSource 

(srcRefNum: 
FUNCTION Hunger 

(destPtr: 
destLenPtr 
targPtr: 
targLen: 
replPtr: 
replLen : 
padPtr: 
FUNCTION Pac)<;Bytes 

(VAR srcBufferrPtr; 
VAR srcSize: 
dstBuffer: 
dstSize: 
PROCEDURE PosMouse 

(xPos: 
yPos : 
PROCEDURE ReadAsciiTime 

(bufferPtr: 
FUNCTION ReadBParam 

(paramRefNum: 
PROCEDURE ReadBRam 

(bufferPtr: 
FUNCTION ReadMouse: 
FUNCTION ReadTimeHex: 
FUNCTION ServeMouse: 
PROCEDURE SetAbsClamp 

(xMinClamp: 
xMaxClamp: 
yMinClamp: 
yMaxClamp: 



Integer) : Ptr; 

Integer; 

ClampRec; 









f^4Vtei^-; »' 






Integer) : 


Integer; 






Longint; 




yi-'i^-^.^-^^^-'h- 


' *7.-' . 






.-iii*; -.;-.* 


, 


Integer) : 


Ptr; - 










;i» 1 -cZ 


.^^.t■^^■■ -ja 


Integer) ; 




-.v.-'vS 


-.:,• '»;?<..-.«.-.■• 






:se-^ -'.-; 


:;:-,«. 


Integer) ; 




.-v='-;vi''°-i.: 


; ' ■■■'■■ 


Ptr; 








IntPtr; 


-Tiv^-^-^.-^^r.t^-'. 


-■-:*f>-r--'- -- 
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Ptr; 


■,o'i»tim3!ii!-S-^rr:>j 


i-via^r.- • 
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Integer; 




« 


r^-U-OiiJ^--ir 


Ptr; 






a*^f^n:- e-^-'- •■»'? 


Integer; 




'.\t»s^ i ■:■-'• 


■:• I' ■■. 


Ptr) : Integer; 


\ i*;.*>?w? 


:V r.'.'- 






: :CTf!.- ri^X. 


:';,i^ ■ 


:Ptr; 




•.>'■■?: :«^ 


.■^,_p. 


Integer; 




>-^'<*V^-eJ' 


; ;.' •.■- - 


Ptr; 




;?»???! 


■■'-'.v- 


Integer) : 


Integer; 


.^^•?H 


«iC ^ ; ■ 






■^.^ 


:».-?■■ ■■ 


Integer; 




,^/#: 


■ ■^■J-'^ 


Integer) ; 




", ■--?!>-: -- ■ 


■^ .:■ ■■ ■ 






.^-.^tf^ 


i^-ar:: V < 


Ptr) ; 




;;•*»¥> J f.i 


■Vft/-,iii1: ;^-- * 






\if.vM 


■ .^«s^i(.•■ ^\; 



Integer) : Integer; 

Ptr) ; 
MouseRec; 
TimeRec; 
Integer; 

Integer; 
Integer; 
Integer; 
Integer) ; 
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^_y 



Integer) ; 



Integer; 
Str255); 

Ptr; 
Integer; 



PROCEDURE SetHeartBeat 

(taskPtr : Ptr) ; 
PROCEDURE SetMouse 

(mouseMode: Integer) ; 
PROCEDURE SetVector 

(vectorRefNum: Integer; 
vectorPtr : Ptr) ; 
PROCEDURE StatusID 

(idTag: 
PROCEDURE SysBeep; 
PROCEDURE SysFailMgr 

(errorCode : 
str: 
FUNCTION UnPackBytes 

(srcBuf fer : 
srcSize: 
VAR dstBufferrPtr; 
VAR dstSize: Integer) 
PROCEDURE WriteBParam 

(theData: 
paramRefNum: 
PROCEDURE WriteBRam 

(buf ferPtr : 
PROCEDURE WriteTimeHex 
(month: 
day; 

curYear ; 
hour; 
minute: 
second: 
PROCEDURE AddToQueue 

(newEntryPtr : Ptr; 



'''^'■':ii££K^;,.^>3i^^u"53ES=iv.t«,=--v~siS?.v;. 



.- ^ V ' ' 



Integer; 



Integer; 

Integer) ; 

Ptr) ; 

Byte; 
Byte; 
Byte; 
Byte; 
Byte; 
Byte); 



Ptr) ; 



Ptr; 
Ptr) ; 



headerPtr : 

PROCEDURE DeleteFromQueuG 

(entryPtr: 

headerPtr: 

PROCEDURE SetlnterruptState 

(iStateRec: 

bytesDesired; Integer) ; 
PROCEDURE GetlnterruptState 



bKfi*"©."; ;- 
InterruptStateRec; 'W^i 



i 



t 



< 



(VAR iStateRec: InterruptStateRec; iKJ^" 



bytesDesired: Integer); 
FUNCTION GetlntStateRecSize: Integer; 
FUNCTION ReadMouse2: MouseRec; 

FUNCTION GetCodeResConverter : ProcPtr; 



FUNCTION GetRomResource: 



IMPLEMENTATION 
END. 



{ «v 



Ptr; ; ^ tvifidwwio^i 

i - r; Tiifflswi i- 
i - 

fi^frv*; ^v .!-:=!■>',' ij^i ■»'3«« «, ■>:iuV»^li>cv.v - 
■ 'S.':^ \.p^-j. f!..: *..- ?n. *(;. .:•-. 
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I T <->;■=■ . ■"» 



\-kic**!*-k-k*-k*-ki,i,*1c-k-k-k-k-k-tt1c*-k-k**-kli-lc-ififk*-k**-k***-k-li* 



file : NoteSeq . p 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 

UNIT NoteSeq; 

INTERFACE 
USES Types; 






• \ ?#3'V'' ' -' ^, * 



A ^,;. TV- 



CONST pitchBend = SO; 

tempo = SOOOOOOOl 

turnNotesOff = $00000002 

jump = S00000003 

setVibratoDepth = $00000004 

programChange = S00000005 

setRegister = S00000006 

ifGo = S00000007 

incRegister = $00000008 

decRegister = 500000009 

midiNoteOff = $0000000A 

midiNoteOn = $0000000B 

midiPolyKey = $00000000 

midiCtlChange = SOOOOOOOD 

midiProgChange = 50000000E 

midiChnlPress = SOOOOOOOF 

midiPitchBend = $00000010 

midiSelChnlMode = $00000011 
midiSysExclusive = S00000012 

mid iSys Common - S00000013 

mldiSysRealTime = $0000001'1 

midiSetSysExl = $00000015 

commandHask = S0000007F 

volumeMask = S0000007F 

chord = $00000080 

vallMask = $00007F00 

toneMask = S00007F00 

noteMask = S00008000 

IByte = SOOFFOOOO 

durationMask = S07FF0O00 

trackMask = $78000000 

delayMask = S80000000 

hByte = SFFOOOOOO 

noRoomMidiErr = SIAOO 

noCommandErr = $1A01 

noRoomErr = S1A02 

startedErr = S1A03 

noNoteErr = S1A04 









{Command - } .*«f^'.:.- 
{Command - ) -i^'Sis-iJ' 

{Command - 

{Command - 1 ■ ■ i^-?"* ;.>^.. 

{Command - \ ^--k 

{Command - 

{Command - 

{Command - 

{Command - 

{Command - 

{Command - 

{Command - 

{Command - 

{Command - 

(Command - 

{Command - 

{Command - 

(Command - 

(Command - 

(Command - 

{Command - 

(Command - 

(Command - 

(Command - 

{Command - 

{Command - 

(Command - 

(Command - , 

{Command - meaning depends on midi command 

(Command - 

{Command -- 

{Command - 

{Command - 
(error - } 

{error - can't understand current Seqitem } 
{error - sequence is more than' twelve levels deep 
{error - Note Sequencer is already started} 
(error - can't find the note to be turned 

off by the current Seqitem ) 



-■it.'"'"- ■ ■ 
• 1. '■'-•/-) 'i- !>'-■- ■■'■'■ 

.'-'■•<t-r«.'^;_--r- 

.jfc35:irK/ -■:■>-■''■ ir-" 

Vi J-^:'^.?*'! :k«»5 -T^-'^ -.r-^^' 

i :^'V--*-'>^ '3» .'■-^" ''■■""■. - . -;' - -- ■ 
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■ ^iit^. noStartErr ~?SSi=^-; 
instBndsErr 

nsWrongVer 



TYPE 



LocRecHndl 

LocRecPtr 

LocRgc 

RECORD 



END; 



= S1A05; (error - Note Sequencer not started yet J 
= SIAOS; (error - Instrument number out of 

Instrument boundary range } 
= S1A07; (error - incompatible versions of 

NoteSequencer and oteSynthesizer ) 



= ''LocRecPtr; 
= "LocRec; 



curPhraseltem: Integer; 
curPattltem: Integer ; 
curLevel: Integer; 



^!i;(it- ,y.i'- 



sv-» ,- :r-s. ■- 



PROCEDURE SeqBootlnit; 
PROCEDURE SeqStartUp 

(dPageAddr: -.;,.i2oi y 
mode: «iifcij.tft( 
updateRate: :ii:»j.;;.v 
increment: , ic^^u 
PROCEDURE SeqShutDown; ■ t.-tiij^ij; 
FUNCTION SeqVersion: . nv= "ffc 
PROCEDURE SeqReset; ■ ^w d;.-5»ii: 
FUNCTION SeqStatus: 
PROCEDURE SeqAllNotesOff ; 
FUNCTION Clearlncr: 
FUNCTION GetLoc: 
FUNCTION GetTimer: 
PROCEDURE Setlncr 

(increment ; 
PROCEDURE SetlnstTable 

(InstTable: 
PROCEDURE SetTrklnfo 

(priority: 
instlndex: 
trackNum: 
PROCEDURE Startlnts; 
PROCEDURE StartSeq 

(errHndlrRoutine : 
compRoutine; 
sequence: 
PROCEDURE StepSeq; 
PROCEDURE Stoplnts; 
PROCEDURE StopSeq 

(next: Integer) ; 
PROCEDURE StartSeqRel 

(errHandlerPtr : 
compRouCine: 
sequence: 

IMPLEMENTATION 
END. 



Integer; 
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- E55 


-f^i 


.; ■^(■<i -'. -i/.; 


Integer; 


>?- 


- ■:i7i'aoi 


-*.-"-'? ■- / ■ .■ ' 


Integer; 


-y 


- -91 


TPl 


\ -."^ 'r '. : c" '■ 


Integer) ; 


.•i 


■ :o5 


■k'-e* 


■.<:■.*• .:. V ,r;^ 


rVJ-^ 


- ?Eji 


J!>r 


■.:;*■ 1 5 - 


Integer«sa.^5, 


- rars 


*V»J 
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■■fi. 


* -EC- 


T*.l 


'A^.f-s - :(;>--i 


Boolean; 






■.X J- 


-li^iti .v---^- ■. its:, 


Integer; 
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LocRec ; 








., 


Integer; 




-.-ay^tS 




■. :::,-<i>r.-. 


Integer) ; 


-.^i^Z'^ti. 




■ i.>s2ft«iKr'i;, 'r 






V^wv* 




: ^<v \i<5^,.:r2 


Handle) ; 


■«ftl9^,JJi-'5 




: ^fi*»»J'J.3.-'ri;''. ' -: 






v»^< 




; v^si'i£.S 


Integer; 


;^««».*fat5 




!-^=1^i^^S->i !' 14 


Integer; 




v«.t*^'. 




; j'^::-^f-..j- 


Integer) ; 


'.V 






1 ■P'isrfym'.^.S^ 


VoidProcPt 


r; 


>1^ 




:_Si'i;3^ :!■= 


VoidProcPt 


r; 


,.^i>a4 




, ; .•^*«6*,-. iiri^iir 


Handle) ; 




-.a?-^; 
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ProcPtr; 


^*:/?l!*tg*P* 


ProcPtr; 


i;isX,->*/.»,W" 


Handle) ; 
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; s^.A ' v-is.r.'/^i-rwi ' ■.wort ;«■ :. ' 



J*************************************-******* -i-'.si^ 

File: NoteSyn. p 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 

******************************************** 
UNIT NoteSyn; 



■.■IJ!''--'V '■■ 



>:)i-. 






INTERFACE 
USES Types; 



CONST 



TYPE 



nsAlreadylnit = $1901 

nsSndNotlnit = $1902 

nsNotAvail = SI 921 

nsBadCenNum = $1922 

nsNotlnit = $1923 

nsGenAlreadyOn = S1924 

soundWrongVer = $1925 



terror - Note Syn already initialized ) '"'" 

(error - Sound Tools not initialized ) 

{error - generator not available ) 

{error - bad generator number ) "■' 

{error - Note Syn not initialized ) M'--'':?^-.'''.:;. -/'-'•- 

{error - generator already on ) 

{error - incompatible versions of Sound and NoteSyn} 



EnvelopeHndl 

EnvelopePtr 

Envelope 

PACKED RECORD 
stlBkPt: 
stllncrement : 
st2BkPt: 
st2Increment : 
st3BkPt: 
stSIncrement : 
st4BkPt: 
st4Increment : 
stSBkPt: 
stSIncrement : 
st6BkPt : 
steincrement : 
st7BkPt : 
sfJIncrement ; 
stSBkPt : 
StSIncrement : 



= "EnvelopePtr; 
= '^Envelope; 



Byte; 
Integer; 
Byte; 
Integer; 
Byte; 
Integer; 
Byte; 
Integer; 
Byte; 
Integers- 
Byte; T 
Integer; 
Byte; 
Integer; 
Byte; 
Integer; 



•-■•t«j. ?tt 












.■ffii-*.'*;--. 
' t. ' 1 ■' 

f»^ ■ 
fc ■■ ■ 



-i_.vt. ^';vK- 



WaveFormHndl 

WaveFormPtr 
WaveForm 

PACKED RECORD 
wf Top Key: 
wfWaveAddress : 
wfWaveSize; 
wf DocMode : 
wf RelPitch: 
END; 



"WaveFormPtr; ■ i-VvC/l*. 

"WaveForm; ■ J'iD'o ■'. ^■ 

;. 1 t-ti to?' 

Byte; 
Byte; 
Byte; 

Byte; 
Integer ; 
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iS3e=^-- 



^^^^ ' 



Ky 



X- 



V O 



= " Inst rumen tPtr; 
= ^Instrument ,■ 



I!^strumentHndl 
InstrumentPtr 
Instrument = 

PACKED RECORD 

theEnvelope: Envelope; 

releaseSegment ; Byte; 

priority-Increment : Byte; 

pitchBendRange : 

vibratoDepth: 

vibratoSpeed: 

inSpare: 

aWaveCount : 

bWaveCount : 

aWaveList : 

bWaveList ; 
END; 






- 1 *■» »! < H -r •■■ 1 - 



-<r%^. 



Byte; 
Byte; 
Byte; 

Byte; 
Byte; 
Byte; 

ARRAY [1..1] OF WaveForm; 
ARRAY [1..11 OF WaveForm; 



{'^ 



% =7*(j j,*ij3 ■b'itiihfi .-'H 



■y^ 



PROCEDURE NSBootlnit; 

PROCEDURE NSStartUp 

.> I f ; 

(updateRate: 

userUpdatGRtnPtr: 
PROCEDURE NSShutDown; 
FUNCTION NSVersion: Inteqer; 

_ . Boolean; 



PROCEDURE NSReset; 
FUNCTION NSStatus; 
PROCEDURE AllNotesOff; 
FUNCTION AllocGen 

{ requGstPriority : 
PROCEDURE DeallocGen 



Integer; 
Ptr) ; 



■■-;av 



Integer) : Integer; _^ ,^ 



(genNumber: 
PROCEDDRE NoteOff 

{genNumber : 
semitone; 
PROCEDURE NoteOn 

{genNumber: 






semitone: 
volume: 



41 '^S** 
lift «[^ 



, Integer) s, 

9vi siirt^irtwi 



"J^-.tiO-kW*; 



Integer; 
Integer J ; 

integer; 
Integer; 
Integer; 



PROCEDURE NSSetUpdateRate 
(updateRate : 

FUNCTION NSSetUserUpdateRtn 
(updateRtn: 

IMPLEMENTATION 



-.)5CK:> ?"tS^nt ' 'se*vK7K\0^',l-;f-.f\ 



Integer) ; 
VoidProcPtr) 






e r.*"-' 



'S -■■ : ■ 



■;'.v_' 



.■')■ 



^ 



t" ft*; - ■ Si " i 



VoidProcPtr; 

V - t 

' - ■* 

I -- y 
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(I-. 



.-W)'V?i-?^^-i.!'*''^ 
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Print 



J******************************************** 

; File: Print. p 

Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 



■lc-k-k1r1c-k-t:****-t-t*-k**-Hc-lr***-lt**ift**tc*****-*ii*-*-K-*** 



UNIT Print; 






INTERFACE 

USES Types, QuickDraw, Events, Controls, Windows, Dialogs; 



CONST 



pntrCon Failed 

memFullErr 

ioAbort 

prAbort 

missingDrlver 

portNotOn 

noPrint Record 

badLaserPrep 

badLPFile 



- S1308 
= SFF80 
= SFFE5 
= S0080 
= S1301 
= SI302 
= 51303 
= 5130-3 
= 51305 



a-^r'.'-uO't?:- 



papConnNotOpen = 51306; 

papReadWriteErr = 51307; 
startUpAlreadyHade = 5132 

InvalidCtlVal = S1322 

reset = 50001 

/ formFeed = 50002 

lineFeed = 50003 

bothOrivers = SO; 

printerDriver = SOOOl 

portDriver = $0002 

prPortrait = 50000 

prLandscape = 50001 

prImageWriter = $0001 

prImageMriterLQ = 50002 

prLaserWriter = 50003 

■ prEpson = $000^ 

prBlackWhite = SOOOl 

prColor = 50002 

bDraftLoop = 50000 

bSpoolLoop = 50080 



{error - connection to the printer failed } 

{errors - } 

{errors - } 

{errors - } 

{errors - specified driver not in system/drivers ) 

{errors - specified port not selected in ctl panel } 

(errors - no print record was given ) 

(errors - laser prep in laser writer incompatible ) 

(errors - laser prep in system/drivers 

incompatible } . , . . 

{errors - cannot connect to laser writer } 

{errors - apple talk PAPRead or PAPWrite error } 

{errors - low level startup already made } 

{errors - Invalid control value had been spec'd } 

{LLDControl - Printer control value - reset printer } 

{LLDControl - Printer control value - form feed ) 

{LLDControl - Printer control value - line feed } 

(whichDriver - input to PMLoadDriver and PMUnloadDriver } 

{whichDriver - input to PMLoadDriver and PMUnloadDriver ) 

(WhichDriver - input to PMLoadDriver and PMUnloadDriver ) 

( - 

-. .iM^-s^' - >-■• ■ - - ■ 

i - 

I - 

{ - 

{ - 

{ - 

{ - 



TYPE PrPrinterSpecRec - 

RECORD 

prPrinterType: 
prCharact eristics: 

END; 



Integer; 
Integer; 



PrlnfoRecHndl 
PrInfoRecPtr 



= ■"FrInfoRecPtr; 
= "PrInfoRec; 
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kJ 



I .fl-i- -Sfi^J"-' -iJ Integer; { reserved for internal use } 
' ■^'-.^/'iVRe^; Integer; { vertical resolution of printer ) 

» -"vvn »>n;, iHRes: Integer; { horizontal resolution of 

^Page: Rect; { defining page rectangle ) 



PrInfoRec 

RECORD 



itsv 



printer ) 



I.»C - * 



PrJobRecPtr 
PrJobRec 

PACKED 



= "PrJobRec,' 

RECORD 

iFstPage: 

iLstPage: 

iCopies : 

bJDocLoop: 

fFromUser : 

pIdleProc: 

pFileName: 

iFileVol: 

bFileVers: 

b JobX : 






■ J-^ioJ 



END; 

PrStyleRecHndl 

PrStyleRecPtr 
PrStyleRec 

RECORD 



Integer; { first page to print } 

Integer; ( last page to print ) ..'.-- 

Integer; { number of copies } . - -■• 

Byte; { printing method } ' " ""_ 

Byte; { used internally ) ' ' '' 

WordProcPtr; { background procedure } " "' '' " 

Ptr; { spool file name ) 

Integer; { spool file volume reference number 

Byte; { spool file version number ) 

Byte; { used internally ) 



= "PrStyleRecPtr; 
= ^PrStyleRec; 









?^-t !k.Vl«'».'." 



'■ \U 



wDev: 
internA: 
feed: 

paper Type: 
crWidth: 

reduction; 
internB: 



END; 

PrRecflndl 

PrRecPtr 

PrRec 

RECORD 



prVersion; 

prinfo: 
rPaper : 
prStl: 
prInfoPT: 
prXInf o: 
prJob: 
printX: 
iReserved: 



Integer; 
ARRAY U 
Integer; 

Integer; 
Integer; 

Integer; 
Integer; 



"PrRecPtr; 
"PrRec; 



{ output quality information } 
..3] OF Integer; { for internal use } 
{ paper feed type } 
{ paper type } 

{ carriage Width for image writer or 
vertical sizing for lazer writer } 
{ % reduction, laser writer only } 
{ for internal use } 






■■■■V ; ii.ir^^ir-. 



{ print manager version } 
{ printer infomation subrecord } 
{ Defining paper rectangle } 
{ style subrecord } 



Integer; 

PrInfoRec; 

Rect; 

PrStyleRec; 

PACKED ARRAY [1..14] OF Byte; (reserved for internal use} 

PACKED ARRAY [1..24] OF Byte; (reserved for internal use} 

PrJobRec; { job subrecord } 

PACKED ARRAY [1..38) OF Byte; (reserved for future usej 



Integer; 



END; 



as 



( reserved for internal use } 



PrStatusRecHndl - 

PrStatusRecPtr 

PrStatusRec 

RECORD 

iTot Pages: 
iCurPage: 



KJ 
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-PrStatusRec; 
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Integer; 
Integer; 
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{ page being printed } 
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iTotCopies : 
iCurCopy : 
iTotBands: 
iCurBand: 
fPgDirty : 
f Imaging : 
hPrint : 
pPrPort : 

hPic: 



Integer; { number of copies requested ) 

Integer; { copy being printed } 

Integer; ( reserved for internal use ] 

Integer; { reserved for internal use ) 

Integer; ( TRUE if started printing page } 

Integer; { reserved for internal use } 

PrRecHndl; { handle of print record } 

GrafPortPtr; { pointer to grafport being use for 

printing } 

LonginC; i reserved for internal use > .,a - • 



END; 












^-^.e^t-S. 






PROCEDURE PMBootlnit; 
PROCEDURE PMStartUp 

(userlD: 
dPageAddr : 
PROCEDURE PMShutDown; 
FUNCTION PMVersion: 
PROCEDURE PMReset; 
FUNCTION PMStatus: 
PROCEDURE LLDBitMap 

(bitMapPtr; 
■ rectPtr: 
userlD: 
PROCEDURE LLDControl 

( print erControlValue 
PROCEDURE LLDShutDown 

(userlD: 
PROCEDURE LLDStartUp 

(dPageAddr; 
userlD: 
PROCEDURE LLDText 

(textPtr: 
text Length : 
userlD: 
PROCEDURE PMLoadDriver ^ 

(whichDriver : 
PROCEDURE PMUnloadDriver 

(whichDriver: 
FUNCTION PrChoosePrinter: 
FUNCTION PrChooser: 
PROCEDURE PrCloseDoc 

(printer afPortPtr : 
PROCEDURE PrClosePage 

(printGraf PortPtr ; 
PROCEDURE PrDefault ' ^ ■ - - 

(printRecordHandle : 
FUNCTION PrDriverVer: 
FUNCTION PrError: 
FUNCTION PrJobDialog 

(printRecordHandle : 
FUNCTION PrOpenDoc 

(printRecordHandle: 
printGraf PortPtr : 
PROCEDURE PrOpenPage 

(printGrafPortPtr : 
pageFramePtr ; 



Integer;,^,, j.^.. ^ ^^„^, 
Integer); ^^. . .^^,.^.j, 

-c^i -r -• . ■ T'i 

;^-^i i .I 3- ft J' ; 
Boolean? ; , ^^^^ 



Integer; 






#tr; 

Rect ; 

Integer) ; 



vclvfS 



Integer) ; 

Integer); , -,.,^.^-„j 

Intcger; , ^ . 

Integer) i* . . 






Integer; 
Integer) ; 

Integer) ; 

Integer) ; 

Boolean; 

Boolean; 









v:^;:.*^ ■ ' 



GrafPortPtr) ; 
GrafPortPtr) ; 



-t.^.'J^^• t ■. -V Jitf 



: ,f.■^l«■■' 

PrRecHndl); ,,, ,...^~-. 

Integer; 

Integer; 









PrRecHndl) : Boolean; 

PrRecHndl; 

GrafPortPtr) : GrafPortPtr; 

GrafPortPtr; 
rectPtr) ; 

. .: - - . ■ ^'/'i- .'.■ - 



■ ( 



' V '.' 1" *- 
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PROCEDURE PrPicFile 

(print RecordHandlG 
■ - printGrafPortPtr : 
statusRecPtr: 
PROCEDURE PrPixelMap 

(srcLocPtr: 

■■ * srcRectPCr: "•'^''^- " 

colorFlag: -^" " 

FUNCTION PrPortVer: Integer;^^' ' 

PROCEDURE PrSetError «*> "" 



(errorNumber: 



I fa J - T" 



StringPtr) ; 
StringPtr; 



FUNCTION PrStlDialog --■* - 

[printRecordHandle : 
FUNCTION PrValidate 

(printRecordHandle: 
PROCEDURE PrSetDocName - - 

(DocNamePtr: ^^'* ' 
FUNCTION PrGetDocName: ' '"^ ''*"^ " 
FUNCTION PrGetPgOrientatlOn 

(prRecordHandle; 
FUNCTION PrGetPrinterSpecs: "■ 
PROCEDURE PrGetZoneName ~'"' ' 

(VAR ZoneNamePtr: Str255) 
PROCEDURE PrGetPrinterDvrName 

(VAR DvrNamePtr: Str255) 
PROCEDURE PrGetPortDvrName .--^."^-•^■3 - 

(VAR DvrNamePtr: Str255) 
PROCEDURE PrGetUserName 

(VAR UserNamePtr: Str255) 
PROCEDURE PrGetNetworkName 

■ ?'(VAR NetworkNamePtr : Str255) 

IMPLEMENTATION "^ ^^I^W^* WS - STft*^*?!? - 
END, .-"■'"' !a:?fe»3^l5='i i^J -- Sfi^fS"? • 



in . 


-.^t:-^ 


PrRecHndl; '"'^ 


, 1 j«- -• 


GrafPortPtr; 




PrStatusRecPtrJ ; 




LocInfoPtr; 
Rect; ^*^^ 




Integer) ; " *' * 

•mi 


M ■ 


t-t-AV l«-s! : fltfllv.i-;; 


- ^^4 


""" Integer); ' ''■^^ 


.^■^.s 



PrRecHndl) : Boolean; 
PrRecHndl) : Boolean; 



v^Ai 



PrRecHndl) : Integer; 
PrPrinterSpecRec; 






■ -■6 ■.. 



■ ;-"* . 



QDAux 



UNIT QDAux; 

INTERFACE 

USES Types; 

CONST frameVerb 
picNop 
drawCharVerb 






File: QDAux. p 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 






■ i^ ' 

■.-»,se -= 



■J -.c -' ;» ■ 'j 



.-! '••^ * -_*V-' 



■vi' --^ 



.'iv*' ::C-'-.-' : . . 



11 "■'C*. 



SS^y!"!.-*.-.:-.'-.';- ■ 



'*- ;, J- i»n -■■-_•>'■■ 
= SOO; iPicInfo - PRIVATE - for reference only 
= SOO; {Piclnfo - PRIVATE - for reference only 
= SOO; (Piclnfo - PRIVATE - for reference only 



Appendices " ^- ^^^-^'^■ 
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iS^i-^5^- 



paintVerb 

picClipRgn 

drawTextVerb 

eraseVerb 

picBkPat 

drawCStrVerb 

invertVerb 

picTxFont 

fillVerb 

picTxFace 

picTxMode 

picSpExtra 

picPnSize 

picPnMode 

picPnPat 

picThePat 

picOvSize 

picOrigin 

picTxSize 

picFGColor 

picBGColor 

picTxRatio 

picVersion 

lineNoun 

picLine 

picLineFrom 

picShortL 

picShortLFrom 

picLongText 

picDHText 

picDVText 

plcDVDHText 

rectNoun 

rRectNoun 

ovalNoun 

arcNoun 

polyNoun 

rgnNoun 

mapNoun 

picBitsRect 

picBitsRgn 

picPBitsRect 

picPBitsRgn 

pi cShort Comment 

picLongComment 

picEnd 

resHode640PMask 

resMode64 0DMask: 

resMode320Mask 

destModeCopyMask 

destModeLeaveMask 

destModeOnesMask 

destMode Zeros Mask 

destModeError 



-^^^SftSS^^-S^ 



$01 
$01 
SOI 
$02 
S02 
S02 
S03 
S03 
$0-3 
S04 
$05 
S06 
$07 
$08 
$09 
SOA 
SOB 

see 

SOD 
SOE 
SOF 
SIO 
Sll 
$20 
S20 
$21 
S22 
$23 
$28 
S29 
S2A 
S2B 
$30 
S40 
$50 

seo 

S70 
$80 
S90 
S90 

591 
$98 
$99 

SAO 

SAl 

SFF 

SOO 

SOI 

S02 

SOOOO 

SIOOO 

S2000 

S3000 

S1212 



(PicInfO - PRIVATE 
(Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
(Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
(Piclnfo - PRIVATE 
(Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
(Piclnfo - PRIVATE 
(Piclnfo - PRIVATE 
(Piclnfo - PRIVATE 
(Piclnfo - PRIVATE 
(Piclnfo - PRIVATE 
(Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
{Piclnfo - PRIVATE 
(Piclnfo - PRIVATE 
{SeedFill/CalcMask 
{SeedFill/CalcMask 
{SeedFill/CalcMask 
{ SeedFill/CalcMask 
(SeedFill/CalcMask 
(SeedFill/CalcMask 
{SeedFill/CalcMask 
(Error - ) 



for 


reference 


only ) 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only ) 


for 


reference 


only 1 


for 


reference 


only ) 


for 


reference 


only ) 


for 


reference 


only ) 


for 


reference 


only ) 


for 


reference 


only } 


for 


reference 


only ) 


for 


reference 


only ) 


for 


reference 


only ) 


for 


reference 


only } 


for 


reference 


only ) 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only ) 


for 


reference 


only ) 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only ) 


for 


reference 


only ) 


for 


reference 


only ) 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only } 


for 


reference 


only ) 


for 


reference 


only } 


for 


reference 


only ) 


for 


reference 


only ) 


for 


reference 


only ) 


for 


reference 


only i 


for 


reference 


only ) 


for 


reference 


only } 



TYPE QDIconRecordHndl 

QDIconRecordPtr t«l 
QDIconRecord '^^' 



"QDIconRecordPtr; 
"QDIconRecord; 



- t ■ r.v 



j^ 
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RECORD 










~ . ■ ■ - * .- -■ 






iconType: 


Integer; 




iv:-^):-' 


; - -, / 


i 




iconSize: 


Integer; 


: 


x-a^f ?- " 


- ■-•?- "-f .-. ; 




V, / 


iconHeight : 


Integer; 


-, 


Csi&tt-u-t' 


.i;ji'-i,;i; i.:. 




iconWidth: 


Integer; 




- 


•.:*; J V ■" ;!.>,.'• ■ , 






iconlmage: 


PACKED 


• ARRAY [1. 


, . 1 ] OF 


Byte; 


;. ■■"• ■' 






iconMask : 


PACKED 


1 ARRAY [1. 


,.11 OF 


Byte ; 


■ -i-.-.t:, ■ ;; .-.■ 


' '• 




m^t 








-, I .' i V'i 




1' 




PicHndl 




■■PicPtr; 


\ "* 


lU:^^ir 




■■"- 




PicPtr 


= ' 


^Picture; 






■.-•iii.j: '«. 


;;■ 




Picture 


= 


; 


iv^f-^j-a-i 


; I '-^aJ-l 


vs^^.','. ■■ :■-.•: 






- RECORD 
















picSCB: 


Intege 


r; 






^■.-' ■ J-- 






picFrame: 


Rect; 


{ Followed by picture opcodes ) 








PROCEDURE QDAuxBootlnit; 
PROCEDURE QDAuxStartUp; 








:' 








■Bl?^ 


*S3Ki^ 


■?^"-;*S^'^;sss^iae'C!Ts.=?s"24?i^!es:\^vr^v;i;'«iii.-i .■-:-:.---■'■ 
















PROCEDURE QDAuxShutDown; 










v-^'jtO 






FUNCTION QDAuxVersion: 




Integer; 












PROCEDURE QDAuxReset; 
















FUNCTION QDAuxStatus : 




Boolean; 


-. „ 


l-lfCl II *•!••+■ < »*• 


-i, »^V^ v. ..= .-, >i. 


1. 




PROCEDURE CopyPixels 










. ^'.* i ■ ■* 






{srcLocPtr : 




Loclnfo; 












destLocPtr : 




Loclnfo; 








&■- 




srcRect: 


. 


Rect; 




^*--tfi?' ■.<: 


i r-v.3i,>^ft-.'" .' ,iv « 


^' " 




destRect: 
XferMode: 




Rect ; 

Integer; 






'.fw, ?■' ";■; ii '" . 






makeRgn ; 




RgnHandle) ; ^ 


• J i • » ♦* ». ■ t - > V / « * 


-.•r«<jy-'i-.Vl'««*s»-» 






PROCEDURE Drawlcon 














v^- 


(IconPtr : 




QDIconRecord; 




vJft.-: f 




^ displayMode : 




Integer; 








1' 




xPos : 




Integer; 










yPos : 




Integer) ; 






• 






PROCEDURE SpecialRect 

(rectPtr : 




Rect ; 








't ■ 




( .. f rameColor : 


wi.ija. *■ 


Integer; 


x'.'ii- 


'XC**^' ■ 


..^**r-^'^i-»- -..^v-. . 


I--- 




fillColor: 


i a« 


Integer) ; 


i 'fl ; 


: '^0*>!j£ ■ 


: »!• >/: ■>,>.■■.•' ■. 






PROCEDURE WaitCursor; 


■ ; ^t*. wt 


, 1.. _ ^._ ._. 


■ ■r2ri 


■,';9»^?- * 


JU.V „v .,,.;..- Tr- 






PROCEDURE SeedFlll ( 


imvifuf-en 


«»*i3<e - 


•i^srtfs) 


-.I'^X*^? - 


v- .; •!■■...■. •■.;n', :. -.-■ 






(srcLocInfoPtr: 


LocInCof- 


■S*:3^1^J 


.■r■^?^:^ - 


■-. ■■■•."■^ 


:._ 




srcRect : 




Rect ; 


3.3 "i -5^1; 


, t^£,^««: - 


j.jw.'?: •■,;■ V-" : -vipTj - 






dstLocInf oPtr: 


Loclnfo; 


:f:C"7:t'!^'! 


■,C*t: f 2^ 


iT'K'C- i:: -.• ''■'•: ^- 






dstRect: ., 




Rect ; 


' i. 3'/e 1 


•■.F>*5^ - 


.'-:u<^:' -t^ 






seedH: i^.%<^vii z^- 


Integer? 


»P ;Ttr; 


.Tffj'J^ " 


-y--. ■•i-':-T'i- ,■ -, 






seedV: , 


SM'^ . 


Integer; 


L iJI ' 


-' b-t'iiii - 




[ 




resMode: ,m -, 


^^fca-mTf 


Integer; 


i i it ; 


vSft^Cri . 


f..r(l^V*^ *•-.! '■V • 






patternPti 


'fecK' Tftr 


PatternPt 


r; \-iit. 


iXirPf^ - 


'.-'■r '.--'.'-_'' - 


•r, ■ 




leakTblPtr: 


■i-jd ^o-;- 


M^rjj- , 


■ 'D -!■«»■( 


AV»(?-^ - 


v.- •;..'s> . 






PROCEDURE CalcMask 


-(«..,. ^' 


d^ , s-,>< - 


Xemc! 


'?i;^« - 


^ -•-.'-- 


!'" 




(srcLocInfoPt 


r : 


Loclnfop- 


-;*.'i-?9l 


■.ii':t'>^ - 


v..;^^ ■ - . 


'-' 




srcRect : 




Rect ; 


-?(.> 


;£ ;&3?c ■ 




'i 




dstLocInfoPt 


r : 


Loclnfo; 


> ■*,' 


-.^li'Ci -■ 


.;-.>;-:■. ,..- . 






dstRect: 




Rect; 


-. , 


■■ "■ ii 


-... ^ ■ - 


r 




{ resMode: -■; <fo:j^ -^^x 


Integer; -"r? "■-/^'* : 


V-.-'S 


.,-.;■ ;. " 






! patt ernPCr " ' 


*' * -■- ' - 


PatternPtr; 'r-^lM 


"IS - 


'^"' . 






leakTblPtr: 


■■r 1^ * 


Ptr) ; 


-■ ^A. ■ 


' -'i'r 


. , 



V_y 
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PROCEDURE PlcComment 
(kind: 
dataSize: 
dataHandle: 
PROCEDURE ClosePicture; 
PROCEDURE DrawPicture 

(picHandle: 
destRect ; 
PROCEDURE KillPicture 

(picHandle : 
FUNCTION OpenPicture 

(picFrame: 



Integer; 
Integer; 
Handle) ; 

PicHndl;a^ 

Rect ) ; 






PicHndl) ; ■_■> T.',viV 
Rect) : PicHndl; 






IMPLEMENTATION 
END. 






QuickDraw 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 



:3«»9r-« !■-.. 



.^y-i^-t'^t 



File : QuickDraw.p 



UNIT Quickdraw; 

INTERFACE 
USES Types; 








: r !,-.-y'i-: '.f.:KKf' ■■* 


J 




- .>:'' ,.- .=''««•■.:- 






. -tTfr^ -.Jj--" 






■ ■-..■' icV-:.:-' 






: ^-i v;* - .■ 




; 


US, ■-:*..'■' = 






r. ■ ! <* 




'ji 







CONST already Initialized 
cannotReset 
notlnitialized 
screenRe served 
badRect 

notEqualChunkiness 
tgnAlreadyOpen 
rgnNotOpen 
rgnScanOverf low 
rgnFull 

poly Already Open 
polyNotOpen 
polyTooBig 
badTableNum 
badColorNum 
badScanLine 
not Implemented 
tsNumber 
_colorTable 
scbReserved 
scbFill 



$0401 
S0402 
$0403 

$0410 

$0411 

S0420 

$0430 

$0431 

$0432 

$0433 

$0440 

S0441 

S0442 

S0450 

$0-151 

S0452 

S04FF 

$04 

$0F 

$10 

S20 



(error - Quickdraw already initialized 

(error - never used } 

(error - Quickdraw not initialized ) 

(error - screen reserved } -' 

(error - bad rectangle } 

(error - Chunkiness is not equal } 

{error - region is already open } 

(error - region is not open } 

(error - region scan overflow ) '^"■''■ 

(error - region is full ) "*"' - 

(error - poly is already open } '■■'■''' 

{error - poly is not open ) 

{error - poly is too big ) 

{error - bad table number ) •*'"'' 

{error - bad color number ) "■ -■-■-'---'* 

(error - bad scan line ) -" -'■'•■- 

(error - not implemented } :,"■««• 

{ - } 

{AnSCBByte - Mask for SCB color table 
{AnSCBByte - Mask for SCB reserved bit 
(AnSCBByte - Mask for SCB fill bit ) 
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-fw 
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,. / 



v^ 



tr.'^ 



scblnterrupt 


= S40 




scbColorMode 


= S80 




table320 


= S32 




tableS4 


= S32 




blueMask 


= $000F 


greenMask 


= SOOFO 


redMask 


= SOFOO 


widMaxSize 


= SOOOl 


zeroSize 


= S0002 


maskSize 


= $08; 


locSize 


= $10 




patsize ' 


= $20 




pnStateSize 


= $32 




portSize 


= $AA 




black 


= SOOO; 


blue 


= SOOF; 


darkGreeii320 


= S080; 


green320 


= $0E0; 


grGen640 


= SOFO; 


lightBlue320 


= $4DF; 


purple32 


= S72C; 


darkGray320 


= $777; 


pGriwinkleBlue320 


= $7 8F; 


brown320 


= S841; 


llghtGray320 


= SOCCC, 


red320 


- $0D00, 


lilac320 


= SODAF, 


red640 


= 50F00; 


orange320 


= S0F70; 


flesh320 


= $0FA9; 


yellow 


= $0FFO; 


white 


= SOFFF; 


modeCopy 


= $0000; 


modeOR 


= $0001; 


modeXOR 


= $0002; 


modeBIC 


= $0003; 


modePoreCopy 


= S0004; 


modeForeOR 


- $0005; 


modeForeXOR 


= S0006; 


modeForeBIC '^ -■■"'"^ ^^^ 


'' = $0007; 


modeNOT 


= saooo; 


not Copy 


= S8000; 


notOR 


= $8001; 


notXOR 


= $8002; 


iiotBIC 


= $8003; 


notForeCOPY 


= $8004; 


notForeOR 


= $8005; 


notForeXOR 


= $8006; 


notForeBIC 


= S8007; 


mode32 


= SOOOO; 


mode640 


= $0080; 


plainMask ^* "i^' '"^ = SOOOO; 


boldMask 


= SOOOl; 


italicMask 


= $0002; 


underlineMask 


= S0004; 


outlineMask 


= soooa; 


shadowMask 


= SOOIO; 



(AnSCBByte - Mask for SCB interrupt bit } 
{AnSCBByte - Mask for SCB color mode bit } 
{ColorData - (val=size) } ...... 

{ColorData - (val=size) } . .- . 
{ColorValue - Mask for Blue nibble } 
{ColorValue - Mask for green nibble ) 
(ColorValue - Mask for red nibble ) 
{FontFlags - 1 • ■ — - ■■ ...... 

{FontFlags - } ' ' "' 

{GrafPort - Mask Size {val=size) } """ 
{GrafPort - Loc Size (val=size) } 
(GrafPort - Pattern Size (val=size) } 
{GrafPort - Pen State Size (Val=size) } 
(GrafPort - Size of GrafPort J 

(MasterColors - These work in 320 and 640 mode } 
{MasterColors - These work in 320 and 640 mode } 
{MasterColors - These work in 320 mode } 
{MasterColors - These work in 320 mode } 
{MasterColors - These work in 640 mode } 
{MasterColors - These work in 320 mode } 
{MasterColors - These work in 320 mode } 
(MasterColors - These work in 320 mode ) 
{MasterColors - These work in 320 mode } 
{MasterColors - These work in 320 mode } 
(MasterColors - These work in 320 mode } 
(MasterColors - These work in 320 mode ) 
(MasterColors - These work in 320 mode } 
{MasterColors - These work in 640 mode } 
(MasterColors - These work in 320 mode } 
{MasterColors - These work in 320 mode ) 
(MasterColors - These work in 320 and 640 mode } 
(MasterColors - These work in 320 and 640 mode } 
(PenModeDATA - 

{PenModeDATA - 

(PenModeDATA - 

{PenModeDATA - 

(PenModeDATA - 

(PenModeDATA - 

{PenModeDATA - 

{PenModeDATA - 

(PenModeDATA - 

(PenModeDATA - 

{PenModeDATA - 

(PenModeDATA - 

(PenModeDATA - 

(PenModeDATA - 

{PenModeDATA - 

(PenModeDATA - 

{PenModeDATA - 

{QDStartup - Argument to QDStartup } 

{QDStartup - Argument to QDStartup ) 

(TextStyle - Mask for plain text bit } 

(TextStyle - Mask for bold bit } 

{TextStyle - Mask for italic bit ) 

{TextStyle - Mask for underline bit ) 

(TextStyle - Mask for outline bit } 

{TextStyle - Mask for shadow bit } 



. r. i 



Lr"5^ - 


' b - 


,«■»- • 


- -: 




■cy-y.^ 




-**;i>?i'':o 




■■,"i-..-/' 




:*.'¥'' 




•itt. '.'. 




■ ti-'- ': ^ •'■tv 




...->■:-(<: 



VvJ^. ;6^■^- 



' V^ 
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TYPE TextStyle 

ColorValue 

AnSCBByte 

PatternPtr 

Pattern 

Mask 

CursorHndl 

Cursorptr 

Cursor = 
RECORD 

cursorHeight : 
cursorWidth: 
cursorData : 
cursorMask : 






s:*j-- 



= Integer ; 

= Integer; 

= Byte; 

= "Pattern; 

= PACKED ARRAY tl..32] OF Byte; 

= PACKED ARRAY [1...8i OF Sjfte; 

= "CursorPtr; 

= 'Cursor; 



\ 






'■ '-.r' %'.''' ■ 






Jl .^ T ^ ■ 



Integer; { size in bytes ] 
Integer; { enclosing rectangle } 
ARRAY [i..l, 1..1] OF Integer; 
ARRAY [l.,l,-,l..ll OF Integer; 






cu r sor Hot Spot : Point; 



RgnRandle = "RgnPtr; _ ,,^.i,r'5s-o„'--.f^: 
RgnPtr = "RegiQi^,^ ^ . /'.loO-.^-.'^irr 



Region 
RECORD 

rgnSize; 
rgnBBox: 



1 -vr'.a^ 



3(-»w -ivaty; 






BufDimRecHndl 

BufDimRecPtr 

BufDimRec 
RECORD 

maxWidth: 
textBufHeight: 
textBuf f erWords ; 
font Width: 



Integer; { size in bytes } 

Rect; _, j.,^f { enclosing rectangle } 



V*v^-t;, r 



•ly 



= ''BufDimRecPtr; 
= "BufDimRec; 






FontHndl 

FontPtr 

Font 

RECORD 

offseToMF: 
family : 
style: 
size: 
ve r s i o n : 
fbrExtent : 



'FontPtr; 
'Font ; 



Integer; 

Integer; 
Integer; 
Integer; 






:l 



■-.EC 



Integer; ( fully defined front of the Font record. ) 

Integer; >^^.,HSf,^^^l 
TextStyle^^^^,^^^.^, 
Integer; ,.;^..^^jM,-i^^, 
Integer; -,j^^^^..t*<^'j ^ 
Integer; ^^^^^.j^^^^, 



FontGlobalsRecHndl 
FontGlobalsRecPtr 
FontGlobalsRecord 
RECORD 

fgFontitS: 
fgStyle: 
fgSize: 
fgVersion : 
fgWidMax: 
fgFBRExtent 
END; 



A 



:.K^i=iZ - ■'- ■ -'-■ 

Integer; { currently 12 bytes long, but may be expanded } 
TextStyle; 



= "FontGlobalsRecPtr; 
= "FontGlobalsRecord; 



Integer; 
Integer; 
Integer; 
Integer; 



vJv <T.;.i.-.v: 



- .1 ,■: 



»;•<> ■ 
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L. 



'v^ 



\J 



FontlDHndl 

FontlDPtr 

FontID 

PACKED RECORD 
famNum: 
fontstyle: 
fontsize: 
END; 
FontlnfoRecHndl 
FontlnfoRecPtr 
FontlnfoRecord 
RECORD 

ascent : 
descent: 
widMax : 
leading: 
, END; 

LocInfoHndl = ■ 
LocInfoPtr = - 
Loclnfo 
RECORD 

portSCB: 

ptrToPixImage: 

width: 

boundsRect : 
END; 
QDProcsHndl 
QDProcsPtr 
QDProcs 

RECORD 

stdText: 

stdLine: 

stdRect : 

stdRRect : 

stdOval: 

stdArc: 

stdPoly: 

stdRgn: 

stdPixels: 

stdComment 

stdTxMeas 

stdTxBnds 

stdGetPic 

stdPutPic 
END; 



"FontlDPtr; 
•FontID; , . 



Integer; 

Byte; 

Byte; 






-T '> 



^FontlnfoRecPtr; - z^^A 
"FontlnfoRecord; « 1?j*»'J! 

Integer; ^i>-'»-3f; y;."'." 

Integer; ■nttOTi'Si'Jivfi 

Integer; ( «*V#=2.:'>J.'J 

Integer; \ dWj'Sl-C^^^ 



LocInfoPtr; 

Loclnfo; 



Integer; 
Ptr; 

Integer; 
Rect; 



QDProcsPtr; 
QDProcs; 



VoidProcPtr; 
VoidProcPtr; 
VoidProcPtr; 
VoidProcPtr; 
VoidProcPtr; 
VoidProcPtr; 
VoidProcPtr; 
VoidProcPtr; 
VoidProcPtr; 
VoidProcPtr; 
VoidProcPtr; 
VoidProcPtr; 
VoidProcPtr; 
VoidProcPtr; 






,*ci-. '!■'■- 


















{ SCBByte in low byte ) 

{ ImageRef } 

{ Width I - - -- 

{ BoundsRect ) 



»' ■ ^it:'~Yi •- ^ ' -T-l 












i-fftion 


■.'*i.'; /,-."" ■•■:'.:: 


v3fi»*iri^j[ 


■■3i£:'fl*^ ■-'" -^ 


viv-i*iA:Jfiff 


• ^t.'L"! >;.-■! 


'./arti^ 


; .^^.it*:--*~iii 


■- r^.^ft.f; ^fi-,''^.-^--; * - 


f .._,t,..y: 


■.^■•».v:T'>"*?/I 


"■■i: :-. 



GrafPortHndl 

GrafPortPtr 

GrafPort 
RECORD 

port Info : 
portRect : 
clipRgn: 
visRgn: 
bkPat: 
pnLoG : 
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'GrafPortPtr; 
-GrafPort; 



Loclnfo; 

Rect ; 

RgnHandle; 

RgnHandle; 

Pattern; 

Point; 



f PortRect } 

{ Clip Rgn. Pointer ] 

( Vis . Rgn. Pointer } 

{ BackGround Pattern ) 

I Pen Location J 



■>«:•■.: 



. ■: ■'-at:- 



'fy.iy. : 



\- 
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pnSize: 


Point ; 




Pen Size } 






pnMode : 


Integer; 




Pen Mode ) 


: if ■'■:,-X- - 




pnPat : 


Pattern; 




Pen Pattern 


} ■■■ ■..■.; ^- - 




pnMask : 


Mask; 




Pen Mask } 


- 




pnVis : 


Integer; 




Pen Visable 


1 ^■- 


-.- ,-■ 


fontHandle: 


FontHndl; 






„-vH*- ,.'"«: 


C-V.r i- 


rontID: 


FontID; 




Font ID ) 


. •tf'/Wi 


. .■■■,■-: -■:-■■'■ 


fontFlags : 


Integer; 




FontFlags } 


.<! ■ ■ '.' 


' -" '^' ■"" ' 


txSize: 


Integer; 




Text Size } 






txFace: 


TextStyle; 




Text Face ) 


.rtt;''-iV 


-' ■ T-.'r :■' 


txMode: 


Integer; 




Text Mode } 




,•' , . '. 


spExtra: 


Fixed; 




Fixed Point 


Value ) 


;,- '.'y-io:. ■ 


chExtra: 


Fixed; 




Fixed Point 


Value ) 


^•' . 


fgColor: 


Integer; 




ForeGround Color ) 


■ '1^--i:- 


bgColor : 


Integer; 




BackGround Color ) 


.■(.9- - ■■'■ 


picSave: 


Handle; 




PicSave } 




■VK"- 


rgnSave: 


Handle; 




RgnSave ) 


■- •■nr-* •'--^' 


: ■'"-■■■'•■ 


polySave : 


Handle; 




PolySave } 






graf Procs : 


QDProcsPtr; 










arcRot : 


Integer; 




ArcRot } 


n'i">'<i..\>»:' 


'1 . i- 


userField: 


Longint ; 




UserField } 


- T- ; . ■ -.- " 




sysField: 


Longint; 




SysFieid } 







PaintParamHndl = "^PaintParamPtr; .;»»;ut=;'*45.» 
PaintParamPtr = "Paint Par am; ( -.ITt-^V 
Paint Pa ram = . — . .- 

RECORD 

ptrToSourceLocInfo: 

ptrToDestLocInfo: 

pt rToSou rceRect : 

ptrToDestPoint : 

mode: 

raaskHandle: 
END; 



LocInfoPtr; 

LocInfoPtr ; 

RectPtr; 

PointPtr; 

Integer; 

Handle; 



.■'-'"■i'E-4 I'-i 






^.■ ./;• 



■Vfifc:^-.-: 



,J -^fi- 



{ clip region ) 



.'")7.-!J Vi-- 



PenStateHndl 


"PenStatePtr; 




i7r:'i^x^*;-^i>." ■•■ 


PenStatePtr 


"PenState; 




•.^7^-3ifr5'S*; '_•■■■ 


PenState 






: I ?»'.-^^:'-i*> -•■■'-' 


RECORD 






i>.ri=?s^5^h_^-- 


psPnSize: 


Point; 




-.r^^r^-i'i'^'i^--: 


ps PnMode : 


Integer; 




.-:-i'^-y:>^ i^>i?" 


psPnPat: 


Pattern; 




i : i'5Ti';%'vi:»MV 


psPnMask : 


Mask; 




;.■■ y\:'\-' -"ul"-'-' 


END; 








RomFontRecHndl 


= "RomFontRecPtr; 






RomFontRecPtr 


= "RomFontRec; 






RomFontRec 


= 




t - i-ij-?-^ 


RECORD 






i ? ^^ 


rfFamNum: 


Integer; 






rfFamStyle: 


Integer; 






rfSize: 


Integer; 




:■:'./■' -■- 


rfFontHandle 


! : FontHndl; jx'a^ 


-;-v'-^ 


: ,^-.^ 


rfNamePtr : 


Ptr; .,^f; 


s> s":^ 


: ;s.rHii.t:rr^ 


rfFBRExtent : 


Integer; -j^v 


. :: *'. 


■.' -A. , = ■■■:• ■■- 


ESD; 


■ •: ,-* -•. ^ U'ti"^- 


'.^J,i.« 


; -r'J»-- 'rr' 




n^ i JfSO ; 


! r;^T 


■ ■,-■■••"■ 



: !• /. 


' - '■ 




■ 1 •»:■■, 


^■, 


■^- 


• u;-- 


--Xf. 


=^ 


• ''-i-y- 


.■■*?-- 


'•.. 


■ ^ 


• .-> 






.-•■--■ 


■*■.■ 



! t r -.-ft ■ 



f r :>'■ 
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ColorTableHndl 

CoiorTablePtr 

ColorTable 

RECORD 

entries: 

END; 



= "CoiorTablePtr; -^{^xf^.'A -. ' -' -> 

= "ColorTable; 

= ■ n» -r.i.-M(-i'. - '-:• '- Tu. 5 a .-. t- ■; 

ARRAY [1..161 OF Integer; .-lIc-'x 



■■#.'1 ;•-:>!.- y- 



' '".l '' ' , '..., -^W 



• vy 



PROCEDURE QDBootlnit; 
PROCEDURE QDStartUp 

. (dPageAddr: 
masterSCB: 
maxWidth: 
userlD: 
PROCEDURE QDShutDown; 
FUNCTION QDVersion: 
PROCEDURE QDReset; 
FUNCTION QDStatus: 
PROCEDURE AddPt 

{VAR srcPtPtr; 
VAR destPtPtr: 
PROCEDURE CharBounds 

(theChar: 
VAR resultPtr: 
FUNCTION CharWidth 

{theChar: CHAR) : 
PROCEDURE ClearScreen 

(colorHord: 
PROCEDURE ClipRect 

(RectPtr: 
PROCEDURE ClosePoly; 
PROCEDURE ClosePort 

(portPtr: 
PROCEDURE CloseRgn 

(aRgnHandle: 
PROCEDURE CopyRgn 

(srcRgnHandle: 
destRgnHandle : 
PROCEDURE CStringBounds 

(cStringPtr: 
VAR resultRect: 
FUNCTION CStringWidth 

(cStrlngPtr : 
PROCEDURE DiffRgn 

(rgnlHandle: 
rgn2Handle: 
diffRgnHandle: 
PROCEDURE DisposGRgn 

(aRgnHandle: 
PROCEDURE DrawChar 

(theChar: 
PROCEDURE DrawCString 

(cStrPtr: 
PROCEDURE Drawstring 

(str: 
PROCEDURE DrawText 

(textPtr : 
textLength : 
FUNCTION NotEmptyRect 



Integer; 

Integer; : •^■,i«.'r-'^«s* 

I n teger ; * i ■"'-*& -■ '-=^- ti-'-'-V ■'■;;-""■ 
Integer) ; 



V^' 
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Integer; 

Boolean; 

Point; 
Point) ; 

CHAR; 
Rect) ; 

Integer; 

Integer) ; 
Rect) ; 

GrafPortPtr) ; 
RgnHandle) ; 

RgnHandle; 

RgnHandle) ; 

Ptr; 
Rect); 

Ptr) : Integer; 

RgnHandle; 
RgnHandle; 
RgnHandle) ; 

RgnHandle) ; 

CHAR) ; 

cStringPtr) ; 

Str255) ; 

Ptr; 
Integer) ; 
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{RectPtr: 
FUNCTION EmptyRgn 

(aRgnHandle : 
FUNCTION EqualPt 

(VAR pointlPtr: 
VAR point2Ptr: 
FUNCTION EqualRect 

(rectlPtr: 
rect2Ptr: 
FUNCTION EqualRgn 

{rgnlHandle: 
rgn2Handle : 
PROCEDURE EraseArc 

(RectPtr: 
start Angle : 
arcAngle: 
PROCEDURE EraseOval 

(RectPtr: 
PROCEDURE ErasePoly 

(polyHandle : 
PROCEDURE EraseRect 

(RectPtr: 
PROCEDURE EraseRgn 

(aRgnHandle: 
PROCEDURE EraseRRect 

(RectPtr: 
ovalWidth: 
ovalHeight : 
PROCEDURE FillArc 

(RectPtr: 
startAngle: 
arcAngle: 
PatternPtr: 
PRCXrEDORE FillOval 

(RectPtr: 
PatternPtr: 
PROCEDURE FillPoly 

(polyHandle : 
PatternPtr: 
PROCEDURE FillRect 

(RectPtr: 
PatternPtr: 
PROCEDURE FillRgn 

(aRgnHandle: 
PatternPtr: 
PROCEDURE FillRRect 

(RectlPtr: 
ovalWidth: 
ovalHeight : 
PatternPtr: 
PROCEDURE ForceBufDims 

(maxWidth: 
maxFontHeight 
maxFBRExtent : 
PROCEDURE FrameArc 

(RectPtr: 
StartAngle : 
arcAngle: 



Rect) ; Boolean; ■; •'sn^c-.- '• U i J' -- 

RgnHandle) : Boolean; 

Point; r:^-_t't -H"! ;a. . V -':"-: 1 

Point) : Boolean; 



Rect ; 






' ' . ■ ■■'■^: 


Rect) : Booli 


ean; 




■^--: ■--■ :■■- . 






1 i'n";a.-"i 


•i:i:fi.t: ■ '; . 


RgnHandle; 




'^*r -^ 'I '- 


;:i-'; ■-■ ■■■'■.n 


RgnHandle) : 


Boolean; -, - ■ ■' 








-. - tiv-.- -. 


■J- .■>.».. 


Rect ; 






:!-i-:-:j:i-i 


Integer; 




;-; ■,rp-..:.,l 


-.' , ■ -.- 


Integer) ; 




■..lft«.' -'>t 




Rect ) ; 












."^■■■..s 


■ -, '-■v , .-.--. ■ .' ■ - 


Handle) ; 




'" ■ -. :&i 


- ■ - '.5 I - 


Rect) ; 




vT,Aa-.: 








'. ■jr.-=*\ 


■ « '■ ,. ' I ■■'= 


RgnHandle) ; 






.'.-■' '. 






: -i-^^-:.- --.U 


: rtA:?.:: ;*-.>.-^ 


Rect ; 






,:¥■-■> ' ■-' ' -- ' 


Integer; 




; ^iii-^W: 


■.r:-:-- ■.■:.. 


Integer) ; 






_,■ ;■!.••''_ ■ 






% { J-*^ 


. :•:■: :mI, 


Rect; 






i^i.-^*?-.*. j.r : 


Integer; 






_■ .-;-;<■> j!.." 


Integer; 




trJ.7U'^"*^n 


" '.' j'v^' -■;-• 


Pattern) ; 






-,-• ■*' - ' .' 






-. ^itt<':^-->^,-.-,f% 


" ?.S*-,',v-n"p *'- • 


Rect; 






--.■;■ -.:.-^ : 


Pattern) ; 




•.»irtirfit''vva 


.Jtib'-J^i-ft'fS---' 






-, W- r^'Ari-c * 


■rit.(.v..'^.??'--S 


Handle; 






;i?<iyn t.- ■■ ■-■ ' .' 


Pattern) ; 




. v-**! 


1 ^•p'.-.L i 'r-Ji I 






-.f'SaPM 


•.-•fH^a 'ji'^T-^u ■"■^- 


Rect; 






jf;>>;-V.^ 


Pattern) ; 


ii* 


^v^;^r- ; '^i<f 




RgnHandle; 




'^^:^:-^-n'^-^ 


- i.^'.:/. '' ; '■^f" 


Pattern) ; 




is*j-r:;*^:nal'. 


, *ii-Ln!-:\*-Ji<' 






i-(:\.-fel&."-''- 


.S : Otr^iii;.'-;' ! -.i- 


Rect; 






fV.'--.- .■'.■ 


Integer; 




■- i»X^j'-ft^flt:-'i 


:'>'.Kn*>:-.f -■'.' 


Integer; 






.v^-. .W ;0 


Pattern) ; 




.'.^nv- 


;-;li.r.--,'i 


Integer; 


■ 


(■■.;h--'i .' ^-.'•- 


• 1 -.*; ■_ :' ^ 


Integer; 






' - ■ .: ■ 


Integer) ; 




^(i'e?•^:': 


* ' J- / 


Rect; 




_ ! ! 


~ .■ "' "l' 


Integer; 




i ;:->.-■ vj 




Integer) ; 
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PROCEDURE FrameOval _ - ''■■-'•^•' 

{RectPtr: Rect) ; ■ ' .'4r,v::''-i"-». :• " 
PROCEDURE FramePoly 

(polyHandle; Handle) ; I t^i^^iii^A :^ rl.irt- u- 

PROCEDURE FrameRect - 

' .' . (RectPtr: Rect); ; ?:^'>w« t ; i^..*-'?.-,- ^ .^"v 

PROCEDURE FrameRgn ■.iif>.y:*-:^i : - -■■""■■. - 

(aRgnHandle: RgnHandle) ; ■■"■ ''' - " ' " 

; PROCEDURE FrameRRect \ t->»«:r~V~:'-^ : ■. .■'rN'.::-..f»j ;>«■ • 

'; " (RectPtr: Rect; ■''■■.. 

^' ■ ovalWidth: Integer; ■'"■ : *"'*3"P'^"'^ ;a'iJ(i*i»' 

'.' ovalHeight: Integer); vb'.x'.-; :s'' '■-• - -j : 

■"' FUNCTION GetAddress ;:o!^rni .?ir'^'— ■-■,--.-; ^..- ■ 

^" . {tablelD: Integer) : Ptr; i^nlvpou ;■•;,., i-.. 

"/.- FUNCTION GetArcRot: Integer; i :b.v»-t,;*.-'^ ■.-■.■■ '-■ . ^ 

FUNCTION GetBackColor: Integer; .frX^^XK^'t . ^.- - ■. ^ ■. :■- - 

PROCEDURE GetBackPat -. .i:»,(' :•-.•'. . »(,--»H ,■;■.>' - 

(VAR PatternPtr: Pattern); '.vstm*. 'i' !»\- J^i^: 

V FUNCTION GetCharExtra: Fixed; V-^-'.XSn.J,'. :--,';.'■?-.».-■..: 

;:■ PROCEDURE GetClip ;« •'.<.;■ :*^',IT>: iitiUci^^ .' >\' . 

'-' (aRgnHandle: RgnHandle); "--' ' ^ ■ 

: FUNCTION GetClipHandle: RgnHandle; ■ i^ ' t.-i&iit:p.f, . p<tnM.'...^ ■ t. 

.*" -, FUNCTION GetColorEntry { i^- -^Uri : i ; • 

'> y (tableNumber: Integer; ' -Rjaf. ;,'j;^'. :*•-..'.- y.'-,' 

entryNumber: Integer); Integer; -.;•=- 
.' ^ , PROCEDURE GetColorTable 

(tableNumber : Integer; ' '''"' "'''■ 

; ■ VAR destTablePtr: ColorTable) ; ;,-■!->;■ 

i'- FUNCTION GetCursorAdr: CursorPtr; ■>i>23wr^ .v.^..- - . ,■■.. 

J- , FUNCTION GetFGSize: Integer; Z i^«*rt* 5*; 1 ; /- : ..-.?*-.^ ■■ - ; 

; ■ FUNCTION GetFont: FontHndl; . i'.Si^JM : -v<t. ;«=>;«. -, 

i , FUNCTION GetFontFlags: Integer; . ^^'--'S-"'^'-'''^-'"':' 

^—^ PROCEDURE GGtFontGlobals ; «^X«««:mxo-> ; - .''^.V.tji.: H'W> 

;• {VAR fgRecPtr: FontGlobalsRecord) ; >■:.:■ -v- ,-3 ■ ■ 

1^ FUNCTION GetFontID: FontID; '■■ii->.r ■■ 

I" * PROCEDURE GetFontlnfo •..■:-?r'S?l'*4t^i3 -I-ii-St^, 

(VAR FontlnfoRecPtr: FontlnfoRecord) ; --■-■«S-->r 

FUNCTION GetFontLore ■.?:l*',^ : 3S".-;-'«r_ >l'-- .' 

r ■ (VAR recordPtr: FontGlobalsRecord; ' -^V-'^> -■■.>-*^.- 

recordSize: Integer): Integer;^ ""^''^'"•^ 

FUNCTION GetForeColor: Integer; 

:;. * ' FUNCTION GetGrafProcs: . QDProcsPtr; -a.V!W«K>s^K . 'ilt:'!«>.^-f-f: - 

I FUNCTION GetMasterSCB: Integer; •.^59^#-:^-? 

[.' PROCEDURE GetPen M-S^P^-Xi' ■ * « 

(VAR PointPtr: Point); ''" 

PROCEDURE GetPenMask ■.'^■^. ■ - ."j ;-;:>:* 

(VAR maskPtr: Mask); ^ ; :v1.-T-.'*» :-s..,0.-*-^"- ^t. -■-■ 

FUNCTION GetPenMode: Inteqer; ' i-'*^*'-^-^ ■.■•-..)"V4->: : 



PROCEDURE GetPenState 



(VAR penStatePtr: PenState) ; 






Integer; 
PROCEDURE GetPenPat 

(VAR PatternPtr: Pattern) ; . * '^^^■' ' '-'■■ "■' ' 

PROCEDURE GetPenSxze *' * ' 

(VAR PointPtr: Point); ' f-^^'^-*^'^' :;e-::'»-: 



J.---.'- '■^. • 






FUNCTION GetPicSave: Longint; 

FUNCTION GetPixel " '' i t^Ltm-tr.-i-X i^.^.V ^**- ■■'< ■- 

(h : Integer; 

v; Integer) : Integer; 
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FUNCTION GetPolySave: 
FUNCTION GeCPort: 
PROCEDURE GetPortLoc 

(VAR LocInfoPtr: 
PROCEDURE GetPortRect 

{VAR rectPtr: 

FUNCTION GetRgnSave: 
PROCEDURE GetROMFont 

(VAR recordPtr: 
FUNCTION GetSCB 

{scanLlne; 
FUNCTION GetSpaceExtra: 
FUNCTION GetStandardSCB: 
FUNCTION GetSysField: 
FUNCTION GetSysFont: 
FUNCTION GetTextFace: 
FUNCTION GetTextMode: 
FUNCTION GetTextSize: 
FUNCTION GetUserField: 
FUNCTION GetVisHandle: 
PROCEDURE GetVisRgn 

(aRgnHandle: 
PROCEDURE GlobalToLocal 

(VAR PointPtr: 
PROCEDURE GrafOff; 
PROCEDURE GrafOn; 
PROCEDURE HideCursor; 
PROCEDURE HidePen; 
PROCEDURE InflateTextBuffer 

(newWidth: 
newHeight : 
PROCEDURE InitColorTable 

(VAR tablGPtr: 
PROCEDURE InitCursor; 
PROCEDURE InitPort 

(portPtr: 
PROCEDURE InsetRect 

(VAR rectPtr: 

deltaH: 
deltaV: 
PROCEDURE InsetRgn 

(aRgnHandle: 
dH: 
dV: 
PROCEDURE InvertArc 

(RectPtr: 
start Angle : 
arcAngle: 
PROCEDURE InvertOval 

[RectPtr: 
PROCEDURE InvertPoly 

(polyHandle: 
PROCEDURE InvertRect 

(RectPtr: 
PROCEDURE InvertRgn 

(aRgnHandle : 



Longint ; 
GrafPortPtr; 

Locinf o) ; 

Recti ; 
Longint; 

RomFontRec) ; 



; ; v:V'4i 



, ^fl■^':-.!^^f^% 



Integer) : Integer; .,^j»g j,; r 

Fixed; 

Integer ; 

Longint; 

FontRndl; 

TextStyle; 

Integer; 

Integer; 

Longint; 

RgnHandle; 



1. ■ ■ 
'>-;■■ -'.x-i-:, 



RgnHandle) ; 
Point) ; 









'•r, ' -■ "■■ i-. ~" 
• ;*,^'i»1;'■C■J^^-: ■ 



Integer; 
Integer) ; 



•-■-f/'=. 



- :.:';^vt^:-:'^' ■"■'■■ ■ •■■- ' ■ 

;tt«^ ■.-'■<» '^ ■ V" >■ ■'- 

■. -n-iV^.-TKl '"'■'■ ■■■'■'■ '■ ■ 
ColorTable) ; ^ ._.._,, -..'--ftt 

'.er;'W^ ■ ■ ^''' 

GrafPortPtr) ; ,. •, „ -: -,,,, 

Rect; ,.,,., . 
Integer; .,.^^-^.»ti,jtSi,i*.^..v^^ 
Integer); ^^..,^jc^ :tf>T»«::^2 






RgnHandle; 
Integer; 
Integer) ; 



Rect; 
Integer; 
Integer) ; 

Rect) ; 

Handle) ; 

Rect) ; 

RgnHandle] ; 



\ iJr'.i''^ 


■ UHJ^ i-^H -"rA'^ 


■- ;u*s,^ 


'"I J^s.'*...-, V' , 


\<^t^t>^r\ 


.=^..'1;.:. ' 




.--. -.y-- 


; iK7aj'^i-'t 


:-».-i^fMT." ."■.^" • .■ 




--i; ; ,' • 


1 •■^;>". 


. i i^'^i--..- ■ ■• ' 



.-■■>r.^:- 
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PROCEDURE InvertRRect 

(RectPtr: 
ovalWidth; 
ovalHeight : 
PROCEDURE KillPoly 

(polyHandle : 
PROCEDURE Line 

(dH: 
dV: 
PROCEDURE LineTo 
(h: 
v: 
PROCEDURE LocalToGlobal 

(VAR PointPtr: 
PROCEDURE MapPoly 

(polyHandle: 
srcRectPtr : 
destRectPtr: 
PROCEDURE MapPt 

(VAR PointPtr: 
srcRectPtr : 
destRectPtr: 
PROCEDURE MapRect 

(VAR RectPtr: 
srcRectPtr: 
destRectPtr: 
PROCEDURE MapRgn 

(aRgnHandle: 
srcRectPtr: 
destdRectPtr : 
PROCEDURE Move 

(dH: 
dV: 
PROCEDURE MovePortTo 
(h: 
v: 
PROCEDURE MoveTo 
(h: 
v: 
FUNCTION NewRgn: RgnHandle; 
PROCEDURE ObscureCursor; 
PROCEDURE OffsetPoly 

(polyHandle: 

PROCEDURE OffsetRect 

(VAR __rectPtr: 
deltaH: 
deltaV: 
PROCEDURE OffsetRgn 

(aRgnHandle : 

FUNCTION OpenPoly: Handle; 
PROCEDURE OpenPort 

(portPtr: 
PROCEDURE OpenRgn; 



Rect ; 
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Integer; 
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Integer) ; 
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Handle) ; 
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Integer; 
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Integer) ; 
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Integer; 




Integer) ; 
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Point); 
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Handle; 
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Rect ; 
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Rect ) ; 
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Point; 




Rect ; 
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Rect) ; 
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Rect ; 
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Rect ; 
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Rect) ; 
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RgnHandle; 
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Rect; 
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Rect) ; 
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Integer; 
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Integer) ; 





Integer; "^'''^ ■ i&t*-'^'^^^ 
Integer) ; 



Integer; 
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Integer); '-^^^ ^-^rar^.^.*^ 



Handle; 
Integer; 
Integer) ; 

Rect; 

Integer; 
Integer) ; 

RgnHandle; 
Integer; 
Integer) ; 
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GrafPortPtr) ; 
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PROCEDURE PaintArc 

[RectPtr: 
startAngle: 
arcAnqle: 
PROCEDURE PalntOval 

(RectPtr: 
PROCEDURE PalntPixels 

{ paintParamPtr : 

PROCEDURE PaintPoly 

(polyHandle : 
PROCEDURE PaintRect 

{RectPtr: 
PROCEDURE PaintRgn 

(aRgnHandle: 
PROCEDURE PaintRRect 

(RectPtr: 
ovalWidth: 
ovalHeight : 
PROCEDURE PenNormal; 
PROCEDURE PPToPort 

(srcLocPtr: 
srcRectPtr : 
destX: 
destY: 

transf erMode : 
:pROCEDURE Pt2Rect 

(VAR pointlPtr: 
VAR point2Ptr: 

VAR rectPtr: 

FUNCTION PtInRect 

(VAR PointPtr; 
RectPtr: 
FUNCTION PtInRgn 

(VAR PointPtr: 
■ - aRgnHandle: 
FUNCTION Random: Integer; 
FUNCTION RectlnRgn 

(RectPtr: 
aRgnHandle: 
PRtXTEDURE RectRgn 

(aRgnHandle : 
RectPtr: 
PROCEDURE RestoreBufDims 

(sizelnf oPtr : 
PROCEDURE SaveBufDims 

(VAR sizelnfoPtr: 
PROCEDURE ScalePt 

(VAR PointPtr: 
srcRectPtr : 
destRectPtr: 
PROCEDURE ScrollRect 

(RectPtr: 
dH: 
dV: 
aRgnHandle : 



Rect; 


.. ..;.., 


■:•■ .^ ■ ■'. 


Integer; 
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Integer) ; 


-. i'>v- ■f'^" 


- 1.' *■ -• ' L „■ 


Rect) ; 
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PaintParam) ; 
Handle) ; 
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Rect) ; 






RgnHandle) ; 
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Rect; 
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Integer; 
Integer) ; 






LocInfoPtr; 
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Rect ; 
Integer; 
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Integer; 
Integer) ; 






Point; 
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Point; 
Rect) ; 






Point; 
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Rect) : Boolean; 
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Point; 
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RgnHandle) : Bool 


ean; ^.j-^;| 
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RgnHandle) : Boolean; ^^■■^^1 

RgnHandle; 
Rect ) ; 



BufDimRecPtr) ; 
BufDimRec) ; 






Point; 
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Rect ; 
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Rect) ; 
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Rect; 
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Integer; 
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Integer; 




RgnHandle) ; 





-.■if* 'jit*'"''-";. ' ■■•'•'i ' 



:^;.. :-iv 



Appendices 



■:-':-i O-QQJ^ 



C-B4 



Apple liGS Toolbox Units 



FUNCTION SectRect 

(rectlPtr: 

rGct2Ptr: 

VAR IntersectRectPtr: 
PROCEDURE SectRgn 

(rgnlHandle: 
rgn2Handle: 
destRgnHandle: 
PROCEDURE SetAllSCBs 

(newSCB: 
PROCEDURE SetArcRot; 
PROCEDURE SetBackColor 

(backColor : 
PROCEDORE SetBackPat 

(PatternPtr: 
PROCEDURE SetBufDims 

{maxWidth: 
maxFontHeight : 
maxEBRExtent : 
PROCEDURE SetCharExtra 

(charExtra: 
PROCEDURE SetClip 

(aRgnHandle; 
PROCEDURE SetClipHandle 

(aRgnHandle: 
PROCEDURE SetColorEntry 

(tableNumber : 
entryNumber : 
newColor : 
PROCEDURE SetColorTable 

(tableNumber: 
PROCEDURE SetCursor 

(theCursorPtr: 
PROCEDURE SetEmptyRgn 

(aRgnHandle: 
PROCEDURE SetFont 

(newFontHandle: 
PROCEDURE SetFonCFlags 

(fontFlags: 
PROCEDURE SetFontID 

(VAR fontID: 

PROCEDURE SetForeColor 

(foreColor : 
PROCEDURE SetGrafProcs 

(grafProcsPtr : 
PROCEDURE SetlntUse 

(uselnt : 
PROCEDURE SetMasterSCB 

(masterSCB; 
PROCEDORE SetOrigin 
(h: 
v: 
PROCEDURE SetPenMask 

(maskPtr; 
PROCEDURE SetPenMode 

(penHode: 
PROCEDURE SetPenPat 

(PatternPtr: 
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Fixed) ; 
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RgnHandle) ; 




r.:^^i .. •. 






i3f:l-5;**<'-', 


;h-»».*:.»a;cM. ■ 




RgnHandle) ; 
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ColorValue) ; 
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Integer; srcTablePtr : Color 
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RgnHandle) ; 
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FontHndl) ; 
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:sr:-.-r :<, - 


*■ 




: ii*^^^; 


'ai---,i- ■n.i.'t* 




FontID) ; 
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PROCEDURE 


SetPenSize 










(penWidth: 


Integer; 


-.j-ii:-- 


. ■• ft. ' ^il • 




penHeight : 


Integer) ; 
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PROCEDURE 


SetPenState 
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(VAR penStatePtr : 


: PenState) ; 
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PROCEDURE 


SeCPicSave 
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(picSave Value: 


Longint) ; 
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PROCEDURE 


SetPolySave 
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(polySaveValue: 


Longint) ; 
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PROCEDURE 


SetPort 
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tportptr : 


GrafPortPtr) ; 
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PROCEDURE 


SetPort Loc 
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< locInfoPtr : 


Loclnfo) ; 
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PROCEDURE 


SetPort Rect 
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(RectPtr : 


Rect) ; 
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PROCEDURE 


SetPortSize 
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(portWidth: 


Integer; 
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portHeight ; 


Integer) ; 
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PROCEDURE 


SetPt 
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(VAR srcPtPtr: 


Point; 




CT-J^-!,..-.- . ■•: 




i^i 


Integer; 


..'*--«?■' 


*,:. ■.Kh.ty:.'- 




Vi 
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PROCEDURE 


SGtRandSeed 
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<randomSGed: 


Longint) ; 
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Set Rect 
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(VAR aRectPtr: 


Rect ; 
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right: 
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bottom: 
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PROCEDURE 


SetRGCtRgn -id^r 


i --'iri''- 


■-•-■■d .T-.:;s.''^ 


, iTttSs----'- .-^f't- ■ 




(aRgnttandle: 


RgnHandle; . 
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top: 
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right : 
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bottom: 
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PROCEDURE 


SetRgnSave 
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(rgnSaveValue: 


Longint) ; 
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PROCEDURE 


SetSCB 
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(scanLine: 


Integer; 
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newSCB : 


Integer) ; 
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PROCEDURE 


SetSolidBackPat 
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{colorNum: 


Integer) ; 
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PROCEDURE 


SetSolidPenPat 
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(colorNum: 


Integer) ; 
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PROCEDURE 


SetSpaceExtra 
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(spaceExtra : 


Fixed) ; 
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PROCEDURE 


SetStdProcs 
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(stdProcRecPtr : 


QDProcsPtr) ; 
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PROCEDURE 


SetSysField 
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(sysFieldValue : 


Longint) ; 
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PROCEDURE 


SetSysFont 
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(fontHandle: 


FontHndl) ; 
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PROCEDURE 


SetTextFace 




■. \?^.'M 
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(textFace: 


TextStyle) ; 
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PROCEDURE 


SetTextMode 

(textMode: 


Integer) ; 
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V^^ 



Integer) ; 
Longint] ; 
RgnHandle) 
RgnHandle) 



PROCEDURE SetTGxtSize 

(textSize; 
PROCEDURE SetUserField 

(user Fie IdValue: 
PROCEDURE SetVisHandle 

(aRgnHandle: 
PROCEDURE SetVisRgn 

(aRgnHandle: 
PROCEDURE ShowCursor; 
PROCEDURE ShowPen; 
PROCEDURE SolidPattern 

(colorNum: 
VAR PatternPtr: 
PROCEDURE StringBounds 
(str: 

VAR resultPtr: 
FUNCTION StringWidth 

(str: Str255) : 
PROCEDURE SubPt 

(VAR srcPtPtr: 
VAR destPtPtr: 
PROCEDURE TextBounds 

(textPtr: 
text Length: 
t .m, VAR resultPtr: 
FUNCTION TextWidth .^ ..^ ^ 
(textPtr: -1^^ 
textLength: 
PROCEDURE UnionRect -^.g-j, ^.^1.5 

(rectlPtca* r*-.^ -i,*, »IMte*^.^T - 5?^i3v 

rect2Ptr: Rect; ^ *t»ii'i'5[; 

VAR unionRectptr: Rect); , ~ ^©ti^:^ 

PROCEDURE UnionRgn ^ w3T*3»!^7,i«»i-«^ 

(rgnXHandle: j,jj,^f gj RgnHandle; a ;J»:; 

V- rgn2Handle: ■-;■- - -» RgnHandle; 

unionRgnHandle : RgnHandle) 

PROCEDURE XorRgn 

(rgnlHandle: 
rgn2Handle: 
xorRgnHandle : 
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Integer,- 








Pattern) 
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Str255; 








Rect) ; 








Integer; 








Point; 
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Point) ; 
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Integer; 
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Rect) ; 
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Integer) : Integer; 






IMPLEMENTATION 
END. 
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RgnHandle; 
RgnHandle; 
RgnHandle); ^j,;?; 
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File: Resources .p 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 















UNIT Resources; i 

INTERFACE 

USES Types, Memory, GSOS; 

CONST resLogOut 
resLogIn 
resLogApp 
resLogSys 
• resForkUsed 
resBadFormat 
resForkEmpty 
resNoCurFile 

resDupID 

resNotFound 

re sFileNot Found 

resBadAppID 

resNoUniquelD 
resBadAttr 

resHashGone 

resIndexRange 
resNoCurflpp 

resChanged 
resPreLoad 

resProtected 

resAbsLoad 

resConverter 

resMemAttr 

systemMap 

mapChanged 

romMap 

resNameOf f set 

resNameVersion 

ricon 

rPicture 

rControlList 

rControlTemplate 

rWindow 

rString 



; I JOt^l : ' / J , 't' : > 

ft ■ ■^- ■ .'■ • 

"4; 

= SO; (ResourceConverter - } ''"' ' -' ''■ ' 

= SI; {ResourceConverter - ) - ' ■■ " 

= SO; (ResourceConverter - } -.v . -_. 

= $2; (ResourceConverter - ) 

= SlEOl; (Error - Resource fork not empty } 

= $1E02; {Error - Format of resource fork unknown } 

= S1E03; {Error - Resource fork is empty ) 

= S1E04; {Error - there are no current open resource 
files } -.^1 -('•■-:. 

= S1E05; (Error - ID is already used ) 

= $1E06; {Error - resource was not found ) 

= $1E07; {Error - resource file not found ) 

= SIEOS; {Error - User ID not found, please call 

ResourceStartup } ■".:-.■ . 

= S1E09; (Error - a unique ID was not found } 

= SIEOA; {Error - reseved bits in attributes word 

are not zero ) 

= SIEOB; (Error - the hash count table is no longer 

valid ) 

= SIEOD; (Error - index is out of range 1 

= $1E0E; {Error - no current application, please 

call ResourceStartup } 

= S0020; (Resources - 

= 50040; (Resources - 

= S0080; (Resources - 

= $04 00; {Resources - 

= S0800; (Resources - 

= SC3F1; (Resources - 

= SOOOl ; (Resources - 

= S0002; {Resources - 

= S0004; {Resources - 

= SIOOOO; (Resources - type holding names } 

= SOOOl; (Resources - ) 

= S8001; (Resources - resource type holding names } 

= S8002; {Resources - resource type holding names } 

= S8003; {Resources - resource type holding names } 

= S8004; (Resources - resource type holding names ) 

= 38005; (Resources - resource type holding names ) 

= 58006; (Resources - resource type holding names } 
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TYPE 



rStringList 

rMenuBar 

rMenu 

rMenuItem 

rTextForLETextBox2 

rCtlDefProc 

rCtlColorlbl 

rWindParaml 

rWindParam2 

rWindColor 

rResName 



ResID 

ResType 

ResAttr 

ResHeaderRec 
RECORD 

rFileVersion ; 
rFiieToMap: 
rFileMapSize: 
rFileMemo: 



$8007; 


{ Resources 


- resoijree 


type 


holding 


names 




S8008; 


(Resources 


- resource 


type 


holding 


names 




$8009; 


(Resources 


- resource 


type 


holding 


names 




S800A; 


{Resources 


- resource 


type 


holding 


names 




SeOOB; 


{Resources - 


- resource 


type 


holding 


names 




S800C; 


(Resources - 


- resource 


type 


holding 


names 




$8000; 


(Resources - 


- resource 


type 


holding 


names 




S800E; 


{Resources - 


- resource 


type 


holding 


names 




S800F; 


{Resources - 


resource 


type 


holding 


names 




$8010; 


(Resources - 


resource 


type 


holding 


names 




S8014; 


{ Resources - 


resource 


type 


holding 


names 




Longint; 




■?i!.^^*jl 




•i:-i;;--?;it. •«,-.'■-. 




Integer; 








■r^~ ■■-..- 


■■-■.; 




Integer; 










- ^"f 





rFileRecSize: 



END; 



Longint; { Format version of resource fork ) 
Longint; { Offset from start to resource map record ) 
Longint; { Number of bytes map occupies in file ) 
PACKED ARRAY [1..128] OF Byte; 

{ Reserved space for application } '-' ^*^'" 
Longint; { Size of ResHeaderRec Record } "'•''* - 



V^ 



FreeBlockRec 
RECORD 

blkOffset; 

blkSize: 
END; 



I r?cs,5 



■: -.■.,»!; .41- 



•!■< 



:*•!=- 



ResMapHandle = "ResMapPtr; 
ResMapPtr = "ResMap; 
ResMap 

RECORD 

mapNext : 

mapFlag: 

mapOf f set : 

mapSize: 

mapToIndex: Integer; 

mapFileNum: Integer; 

mapID: Integer; 

mapIndexSize: Longint; 

raapIndexUsed : Longint ; 

mapFreeListSize: Integer; 

mapFreeListUsed: Integer; 

mapFreeList; ARRAY [1 



Longint; \ ?.'-^; •■ 'V".*. .'•■■'. i '-L' 

Longint; -fi«i5sbJ-*i^'-'=:>-..-'.!^ .,■ 

^iVvr-.-,?).; i:»G>i«-;ri* i - ■ T- ■ -tKi*'' 

\ J i»ff -iol-V;* "- '■ - .- : •'. 

V>UtlJ.r ':»*.;■ 

ResMapHandle; { Handle to next resource map } " 
Integer; { Bit Flags ) 

Longint; { Map's file position ) ' 

Longint; ( Number of bytes map occupies in file ) 



■.ltn•H'^<tf^ 



.PUmvJ' 



END; 

ResRefRecPtr 

ResRefRec 
RECORD 

ResType: 
ResID: 
resOf fset 
ResAttr: 



= "ResRefRec; 



ResType; 
ResID; 

Longint; 
ResAttr; 



OF FreeBlockRec; 



( n bytes (array of free 
block records) ) 

■ ■.■*'£".'■■;■.<. ■"■ ■ -■'' 



;!■ ;_ 



Vv 
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J res size; Longint; . .--^^-vi ■■-^~"v>i ! 

; res Handle : Handle; ,-. . >t,-^ ji.^.-.'.t;" 

END; ,:;, = v,,:a .^-^ . v;*-jeO:' --.I - v-K/^i.-^^^^'i. 

ResourceSpec = ^,/;Y^ >,-»T-r!wr^j - tv.-iT'."'* :-"! 

RECORD ^-i _ .,5^.->7yai>.'tf ; 

resourceType; ResType;,^- - >t^:i-;i-- **.- . 



resourcelD: 
END; 

ResNameEntryPtr = 
ResNameEntry = 
RECORD 

namedResID: 
resName: 
END; 

ResNameRecordHandle 
ResNameRecordPtr 
ResNameRecord ^- 
RECORD 

version: 
nameCount : 



ResID; a- 



■ResNameEntry; 



ResID; 

Str255; 



s*ij yi.< --ii^. 









= "ResNameRecordPtr; 

= ^ResNameRecord;,,....,-,, ; j *, .fii .i JR-* - , -, 



resNameEntries^ .j«, -., 



Integer? " ' - ■■■ 
Longint; 

ARRAY (1..11 OF ResNameEntry; 



;.--^ 



rs;'- - I* ^- f 






;-'■ ■"? .•»;iV 



END; 



■ .'-i'a 



PROCEDURE ResourceBootlnit; 
PROCEDURE ResourceStartup 

(user ID: Integer) 

PROCEDURE ResourceShutdown; 

FUNCTION ResourceVersion: Integer; 
PROCEDURE ResourceReset; 

FUNCTION ResourceStatus: Boolean; 

PROCEDURE AddResource 

(resourceHandie: Handle; 
resourceAttr : Integer; 












,;..■! -.-..''i 





resourceType: 


Integer; j,,,gj ; .<,i&t 


f-yri^V-l 


■.Tni:^'.!-j'>- 




resourcelD : 


Longint); c'x^r.^'^ ijifi ■ 


•.'.;■•;:-» -f---; 


;5^.■'H'.' 


PROCEDURE 


CloseRe source File ( f ilelD: Integer)/^' ^ ; f, -o^M ; 


i'fni'&'.-i-j 


, r .■ = ■:; 'ri'ift.':' 


FUNCTION 


Count Re sources 


-... .„_r™.^ ., 


-ij'P-W-^'" 


i> ^'V-i^"; 




(resourceType: 


Integer) : Longint; 


>,.i<a^'."* 


; '.*•■;-■ :"■ i---,*.-* 


FUNCTION 


CountTypes : 


Integer; 


:.r '!!??*;:> 


•w.-:;'-!-. i^-'-i^ 


PROCEDURE 


CreateResourceFile 




■.V01S*>i'-t-'5 


''*'■' * 




(auxType : 


Longint; 


*, jiti(>t^-* 


-C-ti.?<''- - -r- ■ 




file Type: 


Integer; 


1 .f.1 '."V*5f - ' 


■it-^yv^'^'^."'- V- - 




f ileAccess : 


Integer; 


. mT'Vt-'.' 


•t*i ci** '-:;*. 




f ileName: 


GSString255Ptr) ; 


;'iwO.> *fT 


-i;.^ri'>:vt..;-.--*7!^ .^. 


PROCEDURE 


DetachRe source 

{ resourceType : 
resourcelD: 


Integer; 
Longint) ; 


i: .iU-"fc 


;,J** - '?^'?"- =t.;*-or 


FUNCTION 


GetCurResourceApp: 


Integer; 






FUNCTION 


GetCurResourceFile : 


Integer; 


■.■■,t^-i\ 


•r.--..;-.- - ■;-•■■ ■<■ 


FUNCTION 


Get I ndRe source 

(resourceType: 


Res Type; 




- ' 




resource Index: 


Longint) : ResID; 


V^'l"^''" " 


;.. -A ' 


FUNCTION 


GetlndType: 


Integer; 


» 1"* » .' 




FUNCTION 


GetMapHandle 




;- 


.■ ■ , : ■ "! >■ 




(filelD: 


Integer): ResMapHandle; - 


'*' , ' . '." 
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FUNCTION GetOpenFileRefNum 

(filelD: 
FUNCTION GetResourceAttr 

(resourceType : 
resourcelD; 
FUNCTION Get Resources! ze 

(resourceType: 
currentID: 
FUNCTION HomeResourceFilG 

(resourceType : 
resourcelD: 
FUNCTION LoadAbsResource 

(loadAddress : 
maxSize 
resourceType: 
resourcelD: 
FUNCTION LoadResource 

(resourceType: 
' resourcelD: 

PROCEDURE MarkResourceChange 

( changeFlag : 

resourceType : 
resourcelD: 
PROCEDDRE MatchResourceHandle 
(foundRec: 
resourceHandle: 
FUNCTION OpenResourceFile 
(openAccess : 
resourceMapPtr : 
f ileName; 
PROCEDURE ReleaseResource 
{purge Level: 
resourceType: 
resourcelD: 
PROCEDURE RemoveResource 

(resourceType: 
resourcelD: 
PROCEDURE ResourceConverter 

(converterProc: 
resourceType: 
logFlags: 
PROCEDURE SetCurResourceApp 

(userlD; 
PROCEDURE SetCurResourceFile 

(filelD: 
PROCEDURE SetResourceAttr 

(resourceAttr : 
resourceType : 
currenCID: 
FUNCTION SetResourceFileDepCh 

(searchDepth: 
PROCEDURE SetResourcelD 
(newID: 

resourceType : 
currentID: 
FUNCTION SetResourceLoad 
(readFlag: 



Integer) : Integer; 

:-, ',V--"-' 
ResType; 
ResID) : ResAttr; '"^"^^ '--^ 

Integer; ,■;-»'.?- -'i./ 

Longint) : Longint; =«**■* 

Integer; 

Longint) : Integer; 

Longint; 
Longint; 
Integer; 
Longint) : Handle; 

Integer; 
Longint) : Handle; 

Boolean; 

Integer; 
Longint) ; 

Longint; 
Handle) ; 

Integer; 

ResMapPtr; 

GSString255Ptr) : Integer; 

Integer; 
Integer; 
Longint) ; 

Integer; 
Longint) ; 

ProcPtr; 
ResType; 

Integer) ; , 

Integer) ; . 

Integer) ; 

Integer; 
Integer; 
Longint) ; 

Integer) : Integer; 

ResID; 

ResType; 

ResID); 

Integer) : Integer; 



-*■•■-. '- r; 

■»';-,'!>■-■ ;■ -■- Til 
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FUNCTION UniqueResourcelD 
(IDrange: 
resourceType : 
PROCEDURE UpdateResourceFile 

(filelD: 
PROCEDURE WriteBesource 

(resourceType : 
resourcelD: 

IMPLEMENTATION 
END. 



Integer; ;-r*e^a "•- ' 

Integer) : Longint; 

Integer) ; ■_ j:.-;^.;^.!,- (Jus*.' 

Integer; , ;.««3.vT . 

Longint) ; ^^.g^^a ,.- ■i^.^nS..! 

; •-."r'-Sr-i 



■- ».'';~ *:;.*.:- '*■: ■ 






:.•"»*'. ■'.■■■ 

ft- -"H^ia**^!-/ ;■-*;■!< ;•■.-.;. 
• -sv' ■- 5rc ; 



■. ii (am" 



■A' 
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SANE 



; File: SANE.p 



. -. !;i> * ■ V ; " > I ^ 



; ^5ft«T*B>-.vi .^ifrff-v-j-jjcr-'^:;^; • 



; Copyright Apple Computer, Inc. 1988 
; All Rights Reserved 



,-*,i!nf3nI a«.K'.'' M^itZ\ • 



V^' 



UNIT SANE; 

INTERFACE 

CONST DecStrLen 
SigDigLen 



1 ( 



{■ 



= 255; 

= 28; i 20 for SSK; 28 in 6502 SANE } 



* Exceptions. 



: t»fi. ?r.i 



Invalid 

Underflow 

Overflow 

DivByZero 

Inexact 



i 't f-rctif-tnn,t^»'i 



= 1. 

= 2, 

= 4, 

= 8i 

= 16; 



(■ 



\^^/ * IEEE default environment constant. 
lEEEDefaultEnv = 0; 






■Ksf^tJ VV-'^--? -r- i' M'^ttv- : .1 .^.^viK" n.t-"-.'' 



Style constants for DecForm records. 



FloatDecimai 
FixedDecimal 



'.i'-.vj's J ;]^fi&ii«f*K-* -...;•- »v;-'- '.;fv? 



i^;_' 



= 0; 
= 1; 



.Aft%ia«*9* il*A V -itfiiOl »■?',*«,* .= C •• ^--i ^- 



|-^-..,. 



{■ 



* Types for handling decimal representations. 



■) 



TYPE DecStr 
CStrPtr 
Decimal 



= String [DecStrLen] ; 



r ? j^flft** '-.: .;■-- ,■ -■■■ - 



RECORD 



= 'CHAR; 

sgn: integer; { for positive, 1 for negative } •,...-.:■;, ■,* 

exp: integer; 

sig: String [SigDigLen] 



END; 



DecForra 
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„^ ,..;,^, , . RECORD _ ..^ _,..,-,.. --..^,-. .-, ...;,. 

style: integer; ( FloatDecimal, FixedDecimal > 

digits : integer; ■' 

END; 
{ 

* Ordering relations . 

'••«*-«»i«'t-»f«* I- '-•*•'''-' .1...- 
} 

RelOp = (GreaterThan, LessThan, EqualTo, Unordered) ; 

* Inquiry classes. 
} 

NumClass = (SNaN, QNaN, Infinite, ZeroNum, NormalNum, DenormalNum) ; 

I 

* Environmental control . 
} 

Exception = integer; 

RoundDir = (ToNearest, Upward, Downward, TowardZero) ; 

RoundPre = (ExtPrecision, DblPrecision, RealPrecision) ; 

Environment = integer; 

»n- - 'i — '^ 

* The functions and procedures of the SANE library * 

. ,,^ /'■ ■ 

J \ii - --"'■■ ^•'• 

* Conversions between numeric binary types, 
J 

FUNCTION Num2integer (x: EJttended) : integer; """ j.*---- ---— -- ^ ^ 

FUNCTION Num2LongInt (x: Extended): Longint; ** "' ^v... -.•.■.... --.-.■- 

FUNCTION Num2Real(x: Extended) ; real; 

FUNCTION Num2Double(x: Extended): DOUBLE; ""-" '-'■-'■■■—' -'^ 

FUNCTION Num2Extended(x: Extended): Extended; .'^k.h—^. f^- ■ ^. *■• < ■ 

FUNCTION Num2Comp{x: Extended): comp; 

•<< •■■ .':■.-.■--■■■ ■■ i 

• i - ' It.-* :•'',';■' " ■■; 

* Conversions between binary and decimal. 
J 

PROCEDURE num2dec{f: DecForm; x: Extended; VAR d: Decimal); C; 

{ d <— X according to format f > . ^t.>.-> ...-u.;.^^- .-«" ii,^.--'7tt>. v^.S .^ ... 

FUNCTION dec2num(d: Decimal): Extended; C; •■'''■^'' ^^- '■'■'■'''■' "'^" 

{ Dec2Num < — d ) 

-»/■>>-;- -■ • ' ■ 

PROCEDURE Num2Str{f: DecForm; x: Extended; VAR s: DecStr) ; 
{ s <-- X according to format f ) 

FUNCTION Str2Num(s: DecStr): Extended; • t^'---'^ ''•■■-•^ •- ' '^ ' ■.^■j ?-^ U. . ...*■■■ 

{ Str2Num <— s ) ■•:.»M*"'!- ^ "•■:^''- 
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w 



^ y 

* Conversions between decimal formats. > t "V'* - '■- - ■ '' -ti'^'i.'-: ■--:■. -i ..•>..»■-'.: ■"■■ ■ 

^ . .-^ - 

PROCEDURE Str2Dec{s: DecStr; VAR Index: integer; VAR d: Decimal; VAR ValidPrefix: integer) 

{ On input Index is starting index into s, on output Index is 

one greater than index of last character of longest numeric 

substring; ^^ .w-^r-'--- -^- . ^J. 'J^i-- >•;■' -•- -■■-■' 

d < Decimal rep of longest numeric substring; " «"';'-.-■ ■ ;■■■ 

VaiidPrefix < — "s, beginning at Index, contains valid numeric 

String or valid prefix of some numeric String" } '- - ■ -f- .UV" -.f;.- ft ' '' 

PROCEDURE CStr2Dec(s: CStrPtr; VAR Index: integer; VAR d:Decimal; VAR VaiidPrefix: integer] 

{ Str2Dec for character buffers or C strings instead of Pascal 

strings: the first argument is the the address of a character 
buffer and VaiidPrefix <-- "scanning ended with a null byte" } 

PROCEDURE dec2str(f: DecForm; d; Decimal; VAR s; DecStr); '^^ ^'**^- "i '■•-■^'^■■- -- •■«*•:.. is.- ;■.:.■- 
( s < — d according to format f ) .- ;.f-':-si -■■ x '> : ,.: ■i;--'.: 

* Arithmetic, auxiliary, and elementary functions. ,^^-:.'.v, - ■ 

J __ . _ 



FUNCTION remainder(x, y: Extended; VAR quo: integer): Extended; C; i'*'-'' '■*'■■■■'-• ~''^-' ■'-•^- ' "'■' 
( Remainder <— x rem y; quo < — low-order seven bits of integer 

quotient x/y so that -127 < quo < 127 } -^^'^ ; ^'. -■«:.-; -i-i'-ws- ., '• 

FUNCTION rlnt{x: Extended): Extended; C; * X.> ii.'.sft.rvaa«. : 'i.j^J.'' ■.^r.tuv^'Sjr^i.- . ■ i:..'- . i 
( round to integral value ) 

FUNCTION scalb(n: integer; x: Extended): Extended; C; ■ '- "•'■ •^"-■^' 

i scale binary; Scalb < — x * Z'-n } 

FUNCTION logbix: Extended): Extended; C; . •' *^ "^-^i ^i^it '.': J .laai- ,v; < -. ■ 

{ Logb < — unbiased exponent of x ) 

FUNCTION copysign(x. y: Extended): Extended; ~' -'- -'■ '■ 
{ CopySign < — y with sign of x ) . ,-:.i,..^- .. .. — ,- . ^,— ^-.-_ . . . 



FUNCTION NextReal(x, y: real): real; '.5 ;«sS*yn&^'-rf« ! Ci*^;-*':*'-!-; . . S l--^' 

( .' -afrkl-'-. .'"Jin 'j.'- 
FUNCTION nextdouble (X, y: DOUBLE): DOUBLE; C; 



FUNCTION nextExtended(x, y: Extended): Extended; C; .Kaci^-vf -^nu. .^ -j*-- 
{ return next representable value from x toward y ) '" .^.«._;-^^- :, — ...- 

FUNCTION log2 (x: Extended) : Extended; C; ■ ^^-■Si'ietjl' -;* -. »!■** Ji::i^f>K3 -.-r, ••■•M. ».;•' -.r-''-- ■ 
{ base-2 log ) - ,i--ai ^f,-^Kr^ ^.^^ ie*tirta*?« ii^ejl A- -tfstvf^ . «■.*•!? i: -■? ?( ■■- - ■ 

FUNCTION Lnl(x: Extended): Extended; i^sXfCitl ; i (i« 1 ,?Si:^ J.^^ r i^- ■--- ^,^q -.i; -■ - . 

{ ln{l+x) } .-;w£*aJo ♦rfSi e n/riSl ..isf: «i t'^i' H' inn '•> t *. 

FUNCTION exp2{x: Extended): Extended; C; 1 m^, • Jv~Oe :•"> ,:; .-J ■■...i--.-,? •,.■,! ;:-*^:'. ' 

{ base-2 exponential } - -.».rti? :i-i*: » "^i.-^^i ^^tiOJ^-v ^i '^. v:-'.,' .- r ■ 

FUNCTION expKx: Extended): Extended; C; -^ '.)-Al'.JOCa! • <- r-i ^<,«-:/ 1' .l^-.-. 

{ exp(x) - 1 } -'*.">-. t.iH'.V-- . --.i- .Os.*,-?- ■ .-]•-.! 7 . 'J*. '. 
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FUNCTION Xpwrllx: Extended; i: integer): Extended; f.'rA.n'';.^ 'rr-fn^'- n'.r.>- / <.-. i*"- 
{ Xpwrl < — x"! ) .,-...-_ ^.-- -. -.,...-- 

FUNCTION XpwrY(x, y: Extended) : Extended; 7 ^ -i-^-r.ftSr .' ::-.e£wi; r-'V 'I.tS-V-j;; ;•; ■■ --" . : 
i XpwrY < — x^y ) i^Jti* :ms -t ;■•*''' x.*»4i/. ' ■-'! i3v;. t:* a/ ■.•• 

FUNCTION compounder, n: Extended): Extended; C; ■..-.'• 

{ Compound < — (1 + r) ^n ) ■.:.'*i:i" ;Jiaiipfl''; 5'." •'*^ i***:^?'" ■ 

■.'.■xviSiS^. ti-iiKV sr.is:>jtoi ,>:*i^--l ?■■■ f.- : J' !■ '---*'-■' .*' ' ' ■- - v^;-'"' 
FUNCTION annuity(r, n: Extended): Extended; C; ai-j,;^.-., atKit Xa xi--Ji!-v, V.; • .. . ■. .. 
( Annuity < — (1 - (l+r)"(-n)) / r } 

FUNCTION tan(x: Extended): Extended; C; ^ ii*«,jiioi *.p^('.'^.W ■'-* '»* a?'".'^;'--* -r. >*-'■■'; 
{ tangent } a*«»^.-f.s 9**! -■ ^-^■~; ■■ s "■ .J—i'i':**' 'n.ll 't-'iZ •■'■ 

FUNCTION randoinx(VAR x: Extended): Extended; C; 

{ returns next random number and updates argument; t,^"*'-- i^i**' ■ *: ■. y'. ."1 ^S'J :.li"(.'.' 
X integral, 1 <= x <= (2^31) -2 } ■ ■ ". ^hniyr^: c"! v ■>.•- >ri-: 

* Inquiry routines. .6--.-i(**iv-i^ i^i'^ . -liv--'.' Hl-.' 
FUNCTION ClassReaKx: real) : NuraClass; - .«*,«■,-.*. ^^vi-^. >(AV ,-j«i><i«-A.'f . » . i ..*f.-^ - 

^..-e^^ —--'ti- -.Ti-l "-> OW it M^'' ■•■ ■ ■ 
FUNCTION classdouble(x: DOUBLE): NumClass; C; ■; "■SJ > cvi' - --i- :*<^' ' ■>"> '-:' ^ '-' " 

FUNCTION classcomp(x: comp) : NumClass; C; ■•^ \i^^Hi'3i:'^ : ;i-^h.s ?*'■ .i ^'• 

i ■«.■>■ V'^'-- .«■-'. ■»-■■' 
FUNCTION classExtended{x: Extended): NumClass; C; 
{ return class of x } , = : tc^i^^^Jx^ '.^i- .is.'-l?- •'^'•' '= 

i rr'S * -^ •*-"■■ i-^.'- ■' '': ' 
FUNCTION SignNura(x: Extended): integer; C; 

( if sign bit clear, 1 if sign bit set } -, r ■ l^Wjii^^'J' 1 ' T^S'^'^'^ Sj'-' ' ~' "•■• 

S - *o *«■*.'-•■';«<; 1-- ■-■"-: 
{ 

* NaN function. rii^i*,!!;;? /y;* : f S.AT.ii^s'.-.' •^ ^v .'^r?;'- ^ v 

) ^ ^ ^^ q„^y. -,r i, 

FUNCTION nan(i: integer): Extended; C; V^a,*5 ; ''.U'ST : <? .^'' '■->■---■ 

{ returns NaN with code i } 

^ 

* Environment access routines. .- ij.irt-.-iM-^^ *V ..<}fy^---':-T'-. 

} iv^-^-.Z- ■<'V= "•■■' *?'-^ .-(!■-■ ,;>iT*' 

PRCXTEDURE SetException{e: Exception; b: BOOLEAN); -■ .*~i-----. ■ js-.-^^- ,i ; ^ * ■:■: 

{ set e flags if b is true, clear e flags otherwise; may cause halt ) 

FUNCTION TestException (e: Exception): BOOLEAN; , 'JOjwSS.1.'',^ : (i^t-vi'y ;!--> -." 

( return true if any e flag is set, return false otherwise } 

PROCEDURE SetHalt(e: Exception; b: BOOLEAN); tO-St :•'*:*«.' ■..■''-r. 

{ set e halt enables if b is true, clear e halt enables otherwise ) ,■,.■*■"' 

FUNCTION TestHalt(e: Exception): BOOLEAN; C; i ',,■:..- r '- ' - "■ 

( return true if any e halt is enabled, return false otherwise } 
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PROCEDURE SetRound{r: RoundDir); 

( set rounding direction to r > 



■ - -- -^3S^i)as^^^i>L;5r^^rsrri?:a^:s£.^5:'-T;r5>^^ 



FUNCTION GetRound: RoundDir; 
{ return rounding direction } 

PROCEDURE setprecision(p: RoundPre) ; C; 
{ set rounding precision to p ) 

FUNCTION getprecision: RoundPre; C; 
{ return rounding precision } 

PROCEDURE setenvironment <e: Environment); C; 
{ set environment to e } 

PROCEDURE getenvironment (VAR e: Environment); C; 
( e < — environment ) 



»,- i 1, ■ »».j 4 ^ . *'J. 






-r* . -• «. 



PROCEDURE ProcEntry(VAR e: Environment); 

( e < — environment; environment < — IEEE default env } 

PROCEDURE ProcExlt(e: Environment); 

{ temp < — exceptions; environment < — e; 

signal exceptions in temp ) 



•, t»fiK.-:JiU 



FUNCTION gethaltvVector: Longint; C; 
{ return halt vector } 

PROCEDORE sethaltvector(v: Longint); C; 
{ halt vector < — v } 



•,*'S*t'3o«t : o ■•'■^•^•^"^e'.'Vy 



{■ 



* Comparison routine. 



■} 



; -T.oi.K'SaV •' ' 



i''i:^%>-5---^^^-s?K»i='r .-:. ■■■;??c 



FUNCTION relation (X, y: Extended): RelOp; C; 
{ return Relation such that "x Relation y" is true } 



PROCEDURE SANEBootlnit; 

PROCEDURE SANEStartUp(dPageAddr: integer) 

PROCEDURE SANEShutDown; 
FUNCTION SANEVersion: integer; 
PROCEDURE SANEReset; 
FUNCTION SANEStatus: integer; 



->**fr*>S tft}.-*****^*** 9f 



fif- k^jiei'j' ,--3*'4 ^?«/. i:.i»«.>' 



IMPLEMENTATION 



END. 






^i\V .*. ■ >.: 



Appendices fito'.>T T.O'A ^^^"^ 



C-97 m-O 



Apple IIGS Toolbox Units ■ 



Scheduler 



; File: Scheduler .p 

J ■ . 

; Copyright Apple Computer, Inc. 1986-89 

; All Rights Reserved 



UNIT Scheduler; 
INTERFACE 
USES Types; 



Integer; 



PROCEDURE SchBootlnit; 
PROCEDURE SchStartUp; 
PROCEDURE SchShutDown; 
FUNCTION SchVersion : 
PROCEDURE SchReset; 
FUNCTION SchStatus: Boolean; 
FUNCTION SchAddTask 

(taskPtr: VoldProcPtr) : Boolean; 
PROCEDURE SchFlush; 

IMPLEMENTATION 
END. 



- . : . J. -Si \}'. _-.- -'■"-.; -■ 









Scrap 



f ^--t f t. '^itr _fe 'i-^.-iflsa Jf^ ?fe' - ,'■'•'-■, -.*(■. 1.1 *>?■* - 



File; Scrap. p 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 






UNIT Scrap; 

INTERFACE 
USES Types; 



CONST badScrapType = $1610 
textScrap = $0000 
picScrap = SOOOl 

PROCEDURE ScrapBootlnit; 



{error - No scrap of this type. } 
{scrapType - } 

{scrapTypG - } 
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ir»-tsi»^ 



PROCEDURE ScrapStartUp; 
PROCEDURE ScrapShutDown; 
FUNCTION ScrapVersion: 
^ _. PROCEDURE ScrapReset; 
V^ FUNCTION ScrapStatus : 
PROCEDURE GetScrap 

(destHandle: le-iwsa-^ 
scrapType: ift.-c^.ejt 
FUNCTION GetScrapCount : 
FUNCTION GetScrapHandle 

(scrapType: 
FUNCTION GetScrapPath : 
FUNCTION GetScrapSize 

(scrapType: 
FUNCTION GetScrapState : 
PROCEDURE LoadScrap; 
PROCEDURE PutScrap 

(numBytGs: 
scrapType: 
srcPtr: 
PROCEDURE SetScrapPath 

(path: 
PROCEDURE UnloadScrap; 
PROCEDURE ZeroScrap; . 



-^-JMt-ti^qf Integer; 



Boolean; - ,>«£?NiVp> 

.- - H'-'J^ti^:) 

Handle; *;«■* - «SiiH«»t^ ♦ 
Integer) ; - --JseJtnfviii 
Integer; , - -> '-aj-i:!^.,! 

r*l»«s*i^t "Ifttiscier) : Handle; a^-i 
Ptr; ■>;ii 

Integer) : Longlnt; "s'; > 



'.affrf:r**V 



Integer; 



;,«^i 



Longint; 
Integer; 
Ptr) ; «1 

Str255)j>lO fti^-.y --^yr.) 
"> s 3uf-.T (aft '•; L-ii*>fl - 5«»s ^. ifi *i ^eT ^^ i;?. ) 

■i'nj.ft^-^ ?««*! tii«K - .-ieslV) Pitt*"* <«i'^fe; 
IMPLEMENTATION . -« ^ . .., 






1 !'-■:.''-.' 



• ti ■ . 



ill." 

n ?■■■-' . ■ 



vo-^i. 




■<^(. ,.."■.■ ■ 


•.<''<'^ 


- 


)*y-'!i.l'-.-:'!.*V--''' 


■- 'C:* 




3*: ;i;ip>r-- ;.:;- -■ 


i !-■ * V 


- 


^-. •;':!' ■-' ; 


%-^^? 


- 


>l.'iar,.\-. r«.- 


-ft!* 


■4 


;>! s5ifc..-,^,. ,1. 


V r : C- 


•' 


rVrftbt-*.; , ■'■ 


;?*? 


r. 


»*iSt V^J'-- '. • 


OSS 


*i 


*Wfc'"'Si-". 



V^ 



Sound 



; File: Sound. p 

J ......... , .c;£^e(i^a i y^^m 

Copyright Apple Computer, Inc. 1986-89 ''^^'2. ^ t^-***'-''*^ 

All Rights Reserved ■^' '^ '' ^ •"P'^'*-* 






..>ft3.-i« 



UNIT Sound; 



-.iy:, ..ji^rt ,t;=.^jv« =.i...sc;^ 3[W i^ ;ilft<Wf*T 



■r-^,' 1 f*.•:,;^ 



K^ 



INTERFACE - ' 
USES Types; 

CONST noDOCFndErr = S0810; 

docAddrRngErr = S0811; 

noSAppInitErr = $0812; 

InvalGenNumErr = S0813; 

synthModeErr = SOSl-]; 

genBusyErr - $0815; 

mstrlRQNotAssgnErr = $0817; 

sndAlreadyStrtErr = $0818; 

unclaimedSndlntErr = $08FF; 

ffSynthMode = SOOOl; 



Appendices .iU".«o': 8^**? t^q^-jA 



\i i^-s-'^.a ^?f* ■i -y-j' - " 



A|..5JriH.-;...-^j' 



(error - no DOC chip found } 

{error - DOC address range error } 

{error - no SAppInit call made } 

{error - invalid generator number ) 

{error - synthesizer mode error } 

{error - generator busy error } 

{error - master IRQ not assigned ) ■ .,, - 

{error - sound tools already started } .;- - 

(error - sound tools already started } 

(channelGenMode - Free form synthesizer mode } 



■-L:.\ 
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noteSynthMode = S0002; 

genOoff = 50001; 

genloff = $0002; 

gen2off = S0004; 

gen3off = 50008; 

genloff = $0010; 

genSoff = $0020; 
genfioff , = S0040; 

gen7off = $0080; 

genBoff = SOIOO; 

gen9off = $0200; 

genlOoff = S0400; 

genlloff = S0800; 

genl2off = SlOOO; 

genl3off = 52000; 

genl4off = $4000; 

genAvail = SOOOO; 

ffSynth = $0100; 

noteSynth = $0200; 

lastBlock = S8000; 

smReadRegister = SOO 

smWriteRegister = S04 

smReadRam = $08 

smWriteRam = 50C 

smReadNext = $10 

smWriteNext = $14 

smOscTable = $18 

smGenTable = SIC 

smGcbAddrTable = $20 

smDisableInc = $24 



^^' ,-.% -i :■ '-■■ 



■ ?«... i?' 



{channelGenMode - Note synthesizer mode. } 
{genHask - param to FFStopSound ) 
{genMask - param to FFStopSound } ■-■ - 
{genMask - param to FFStopSound ) 3.ir"- 
{genMask - param to FFStopSound ) ■^■-' • 
{genMask - param to FFStopSound } 
(genMask - param to FFStopSound ) 
{genMask - param to FFStopSound } 
{genMask - param to FFStopSound } 
{genMask - param to FFStopSound } 
(genMask - param to FFStopSound } 
{genHask - param to FFStopSound } 
{genMask - param to FFStopSound } 
(genMask - param to FFStopSound ) 
(genMask - param to FFStopSound } 
(genMask - param to FFStopSound } 
(genStatus - Generator available status } 
(genStatus - Free Form Synthesizer status 
{genStatus - Note Synthesizer status ) 
{genStatus - Last block of wave } s: =. 
(Jump Table Offset - Read Register routine } 
{Jump Table Offset - Write Register routine ) 
{Jump Table Offset - Read Ram routine ) i-rtS'jtr-,. ,.■,.■ 
{Jump Table Offset - Write Ram routine ) "^^ • 
(Jump Table Offset - Read Next routine } 
(Jump Table Offset - Write Next routine ) 
{Jump Table Offset - Pointer to Oscillator table 
{Jump Table Offset - Pointer to generator table } 
{Jump Table Offset - Pointer to GCB address table 
{Jump Table Offset - Disable Increment routine } 



) 



i3- 



TYPE 



SoundPBHndl 

SoundPBPtr 

SoundParamBlock 
RECORD 

waveStart : 
waveSize; 
f reqOff set : 
docBuffer: 
buf ferSize: 
nextWavePtr ; 



volSetting: 



'SoundPBPtr; 
"SoundParamBlock; 



'i- . r-' 



>.*: -.- 



Ptr; ( starting address of wave } 

Integer; ( waveform size in pages } 

Integer; { ? formula to be provided ) 

Integer; { DOC buffer start address, low byte = } 

Integer; { DOC buffer start address, low byte = } 

SoundPBPtr; ( Pointer to start of next wave's parameter 

block ) 
Integer; { DOC volume setting. High byte = } 



END; 



DocRegParamBlkPtr 
DocRegParamBlk 

PACKED RECORD 
oscGenType: 
f reqLowl : 
freqHighl ; 
voll: 

tablePtrl: 
controll ; 
tableSizel : 
f reqLow2 : 
freqHigh2 : 



= "DocRegParamBlk; 






Integer; ^^-^ -^ -<^ " ^<^^--^ 

Byte; '^^ ^^>'^^^- "^^-^ ' 

Byte; 

Byte; 

Byte ; 

Byte; 

Byte; 

Byte; 

Byte ; 



x -."?*■■ - 



- 1 :*<.■ 



r:-.V ■ 
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tablePtr2 : 
control2: 
tafale3ize2 : 



Byte ; "^^i^SS?^^^^S^^^=^'SZiSr^^^5i:^3r'^l5?l^;; 

Byte; 

Byte ; 

Byte; 



^'•"i 



(■» ''-.i "j-i ■ * 1. i 1 ^ .. • ) 



- » . 1 •■- 



PROCEDURE 
PROCEDURE 



PROCEDURE 

FUNCTION 

PROCEDURE 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 
PROCEDURE 



PROCEDURE 

FUNCTION 

FUNCTION 
PROCEDURE 

PROCEDURE 
PROCEDURE 

FOHCTION 
PROCEDURE 

PROCEDURE 

PROCEDURE 
PROCEDURE 
PROCEDURE 



SoundBootlnit; 
SoundStartUp ;' 

(dPageAddr: 
SoundShutDown; 
SoundVersion : 
SoundReset; 
SoundToolStatus : 
FFGeneratorStatus 

(genNumber; 
FFSoundDoneStatus 

{genNumber: 
FFSoundStatus: 
FFStart Sound 

(genNumFFSynth : 
pBlockPtr : ;t^-,.i^.> 
FFStopSound 

(genMasJci3»=^f,Jq?j ifa 
GetSoundVolume 

(genNumber; 
GetTableAddress : 
ReadRamBlock 
(destPtr: 
docStart: 
byteCount : 
SetSoundMIRQV 

(sMasterlRQ: 
SetSoundVolume 
{volume: 
genNumber: 
SetUserSoundlRQV 

{userlRQVector: 
WriteRamBiock 
(srcPtr : 
docStart: 
byteCount : 
FFSetUpSound 

(channelGen : 
paramBlockPtr: 
FFStartPlaying 

(genWord: 
SetDOCReg 

(pBlockPtr: 
ReadDOCReg 

{VAR pBlockPtr: 



'A: '-' 



Integer) ; 

Integer; 

Boolean; j .,***-■- ^ 

Integer) : Integer; 

Integer) : Boolean; 
Integer; 

Integer; *^> >0-;^j**j; f 3 ? 
iSoundPBPtr) ; ^S3'*•:r=v' .; 7 i 

rinteger) ; *«"> •^^^^ittim",} 

Integer) : Integer? ' •" t 
Ptr; 



?S-e*^5i': .^:i . 'r-t i ..■■c -.«■. 



I.fti-** ITT* »^-l 






\'-,\ ->■■-" 



::-. iA^%>{f.;^ ~ 



i ~ i 






Ptr; . " 
Integer; 
Integer) ; 

Longint) ; 

Integer; 
Integer) ; 

Longint) : Ptr; 






Ptr; 




Integer; >->-jSf.-;.®7i;-^4«fl^£' ■" 


.f.'r-^.ai?';:' .-.'■; i.f;-.'.- 


Integer); :S«-?'^aii:^fl^iy~ ' 


•V'^ -.:■*'' Vi-;ly.; 


■•» 


.--^^;=-. . 


Integer; 


"ii.-rt^^ 


SoundPBPtr) ; •,^w•/•:t*»r-^■ 


■V>i-V 


i7«SI"*dJ- ' 


-etr'.-'*? "- 


Integer) ; : Xti^'''-it' y* 


; Ur^'Jf- ' %'■■.- 


', 'I-:' *iS3, l-"***^; ■ *^ 


: ..-,= •';. '■ %'■ 


DocRegParamBlk) ; ^'-''^ 


.'if-^-t^:' •' 


.:(o>^^ >-.■-> tsi'i.T.v' 


. ~.r: i\- . 


DocRegParamBlk) ; ' >^**' 


: \^'*'^. ■ : 




-.;•.!• 



IMPLEMENTATION 
END. 



fc..J/.i.-:>^l^J-iR» 






■*. . 'Si;, 



Appendices '^i^o"^ -^V>*i ^^qcjA 



C-101 



Apple IIGS Toolbox Units 



StdFile 






tTiX-^-ff- -■« • 



: File: StdFile. p 
4 

; Copyright Apple Computer, Inc. 198 6-89 
; All Rights Reserved 









"i" ■ 



7" . 



; t ; > 



UNIT StdFile; 

INTERFACE 
USES Types; 

CONST noDisplay 
noSelect 






■% *t .:J. -^t- Mi :'■ -^v;'' 



= $0000; 
= $0001; 



displaySelect = S0002; 

sfMatchFileTypG = $8000; 

sfMatchAuxType = $4000; 

sfDisplayGrey = $2000; 



{filterProc result - file not to be displayed ) 

{filterProc result - file displayed, but not 

selectable J 

(filterProc result - file displayed and ■''--.r-- 

selectable} 



( - } 
{ - } 



TYPE SFReplyRecPtr = "SFReplyRec; 
SFReplyRec 
RECORD 

good: Boolean; 

flleType: Integer; 

auxFileType: Integer; 

filename: String (15] ; 

fullPathname: String 1128] ; 
END; 









SFReplyRec2Hndl 
SFReplyRec2Ptr 

SFReplyRec2 

RECORD 
good: 
fileType: 
auxType: 
nameDesc: 
nameRef : 
pathDesc: 
pathRef : 

END; 



■ SFReplyRec2Pt r ; 
'SFReplyRec2; 



Boolean; 
Integer; 

Longint ; 

Ref Descriptor; 

Ref; 

Re f De s c r ipt or; 

Ref; 






1 ■'r/i:^-r-'u^ .''.''" 



rau It iReply Record 
RECORD 
good: 

namesHandle . 



Integer; 

Handle; 



Appendices 
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;':-\_y 



V_y 



i.t TypeListHandie 


"SFTypeListPtr; 




''• !.f 1 '-•: 


SFTypeListPtr 


"SFTypeList; 


, TSi-VS . ri ; 


' ■; -• r rfi*«- " 


SFTypeList 




\:,-T-9:}m 




PACKED RECORD 




. ,T * -^ i ^ r> 


■ *.-—---** 


numEntries : 


Byte; 




Hsr-r'-:.-;^ 


fileTypeEntrie; 


s: PACKED ARRAY Ei..5] OF 


Byte; ^ .■!^ ■»■-!•■: J i''-:*^ 


END; 






-■■;i;i>v- .'^ : 1 -.i:- 








i'i ,._::,-'■ -y- It- - 


TYpeSGlector2 


■; 


1^^i:'^'->4fi.:f/:ii-:K 


■ --'>V' — •-'^ 


RECORD 






•f' ^..- ^ t , . 


flags: 


Integer; 


\iH^^-Ul 


■^, .--.;--■ 


fileType: 


Integer; 


.^^•s.'-J, 


n-r^r-^ 


auxType: 


Longint; 


i !j'?o.i;i-'? 


'. J j^^'^^t: ■'>■'■ ' 


END; 




Vti: «<t' ■■^^■if""' !^K 


: IIL..... ---1 J .; 






-. ■■ 'k? 


■ *i*ii ,■<!■,; ;'>-Vi 


SFTypeList2Ptr = '•SFTypeList2; 


riSl30iii&^^rrw 


:i,-o.si7^^r ..:■: 


3FTypGList2 


t 


mi-^itU^f-^.^. 


- "! '■*• t'l^.i: . 


RECORD 




i.;i^ift"&"-gi\~.:1 


: ■■ ,'• 


numEntries : 


Integer; 




-. 5 •■' 


fileTypeEntries 


! : ARRAY [ 1 


. .5] OF TypeSeli 


3ctor2; *?-''^ -'"^'^ 


EHO; 






- ' i-r^.. '-' . 






Vs-x-s^i^- 


\'fT-S>-'" 


PROCEDURE SFBootlnit; 




; sfctt-'^^.U 


rV *»:.,■ ■* 


PROCEDURE SFStartUp 




MiHff^J-^ 


VT ,>^v.-ii rtS^*^.,," 


{userlD: 


Integer; 


V^«i>1'*'3'a*«tf;tt 4>S 


:^7:*ti!»qia*>*: "■; 


dPageAddr : 


Integer) ; 


•.%P^ 


• 'f>^"»i?;---.-'; 


PROCEDURE SFShutDown; 




■.S:T'^Gf':it^':MCiy 


./•l^^T^:.- -J 1 - 


FUNCTION SFVerslon : 


Integer; 


Ti*i^f^t.i'm:i^^'4e' 


; t I'*'*^^. .*'^/ 


PROCEDURE SFReset; 


> 


^jRi^a^v'i-S*-'^ 


. ■■■-■"^i.-^X-;, "Nr----!-' 


FUNCTION SFStatus: 


Boolean; 


*:l.«a*^'?wioV 


,-> .^^fJjvSki'' <;,.;. .*■ 


PROCEDURE SFAllCaps 




; tm-i^Vi^'i'W. 


. , j-t^^^t-v / •\: ■ 


(allCapsFlag: 


Boolean ),- 




p\.V-„7fjV' 


PROCEDURE SFGGtFile 




-vSftswjfc; 


T-Sft'J^'-Jvf 


(whereX: 


Integer; 


rw^'Sjftj 


;Vvr-f- 


whereY: 


Integer; 


%.^.^^: -i 


. :^^-v=i 


prompt : 


Str255; 


;^f .f-Jit 


:»i;ift«,--? ■ ? 


filterProcPtr: 


WordProcPtr; 


SttsCIs-^/i"^ 


..t*..;^-^- 


typeListPtr: 


SFTypeListPtr!^ --■<-'^'«^'^-- *^'»^ 


5 J.t!S£:«at-r -;■■>-■*"'- 


VAR replyPtr: 


SFReplyRec) ; 


^■.-3fltt'l->/:^!-0^ 


-. f;!riHOC*^v.i/:V. 


PROCEDURE SFGetFile2 




.r?»R^^i-^eii'«f 


:iJ*i-f<:-i^-".r 


(WhereX: 


Integer; 




-iv'o.-i '-..'s^-?' 


WhereY : 


Integer; 


;i*f*A'itf* 


.T^t- j-»r 'i'. 


prompt Desc: 


Ref Descriptor; tx5<^-^(»l^ 


:l^»;.*r-V- 


promptRef ; 


Ref; 


vi>i!ais:i% 


:3-4^r»5ft»-';-.-iS;::T; 


filterProcPtr: 


WordProcPtr; 


■■■-•^.jr^- ■■■.■js-j-i^ 


, . ff'Kl.^v;^., .■-< 


typeListPtr: 


SFTypeList2Ptr; " ■ *"^ 


-. ;^(t-ir;?M;-5 


VAR replyPtr: 


SFReplyRGc2) 


. . f^iP-r-i:-^^ 


i -;.'>ni*-;.'^ v.r.^ ' i ^ 


PROCEDURE SFMultiGet2 




- t5^» 


; ■.«i'i.,v^: r-i-^/:;.! 


(WhereX: 


Integer; i 


w- f^ : ';^''T'pv Iti^' 


;:; ;'j'\^.-;^ ,-~ i.^^-: 


WhereY : 


Integer; 


i :.-'^-^if''^lht^.'r 


. 3 .'i:i '."?■.; i.«J' 


promptDesc: 


RefDescriptor? t?^*"'''*"'!^®^"* 


,^>v(.'":^- ;?AV 


promptRef : 


Ref; 




•' ' ; ' -■'.■ 


filterProcPtr: 


WordProcPtr; 


.;7»^»*!il 


.1i>-; :i'."--r 


typeListPtr: 


SFTypeList2Ptr; ' "'•t-'^ --■-' 


'.'?:: j-^'viv 


VAR replyPtr: 


SFRepiyRec2) 


; '^C^.iJt 


. ■■;c9-f - »: 






. ^Z^i ^^' 


:-fr--6J* ■-■' '.r. 






iti-p'»?ftT 


■ ;■ ■■■} -t.- 




■ 


:, .■■^';v;(iS^' 


. „<"> ■;;'.. .;,',. 



v^ 



Appendices dIooT i^.?^'?ii *tiqqA 



C-103 



Apple IIGS Toolbox Units 



PROCEDURE SFPGetFile 


;l -:'i .:- i:.>rfTt:"'"^'' '' 


V . '^.-5ft> .■■■-" jV 


(whereX : 


Integer;' :.'^ ..fvi'i'r''** " 


i •.■■;-. -,- ; ; 


whereY : 


Integer; 


;.'■ -,: '■■■. 


prompt : 


Str255; 


O-^J-'-.^- ■ '.'■- ■■ ■ 


filterProcPtr : 


WordProcPtr; i-ej<*i<i 


■.^»; •;■ • /-Si-. 


typeListPtr : 


SFTypeListPtr; "l^t^iVn ^ 


ft.---; . jc.-*:'{! f' • 


dialogTempPtr : 


DialogTemplate; 


. }:■'■! 


dialogHookPtr : 


VoidProcPtr; 




VAR replyPtr: 


SFReplyRecPtr) ; 


■'■ £7-..v;.t'. - 


PROCEDURE 5FPGetFile2 




(f^* ■.'■■■.r_ 


(whereX: 


Integer; ;.i«yi>?"r. 


.fV^.- 


whereY : 


Integer; na.;;viK"i 


;-=-i-:"-: ■ ■ 


itemDrawPtr : 


Procptr; ; -•- ;:■. >■ 


t .*v.^--,;i>- 'i 


promptDesc: 


Re fDe script or; 


■-;»_ 


. promptRef : 


Ref; 




filterProcPtr: 


WordProcPtr; t; ;T? v»*"^>; 


W ■- --: - ■ '■ '< 


typeListPtr: 


SFTypeList2Ptr; 


•^ ■U.-..C.4 


dialogTempPtr : 


DialogTemplate; 


:■.:■-:-'.:■■ 


dialogHookPtr : 


VoidProcPtr; , . ...>.*.t-':t 


■i'sji •'':■■'..'■ ■'.- 


VAR replyPtr: 


SFRGplyRec2) ; .('. '■-;"?;/. 


^ «i.:;-*r-:*'^-4'<'''*> ^■ 


PROCEDURE SrPMultiGet2 






{WhereX : 


Integer; 




whereY: 


Integer; 


'..' 1 ■■■ ' ■■"*-' "' 


itemOrawPtr: 


ProcPtr; 


■■■■'■■' • ■ 


promptDesc: 


RefDescriptor; : i-^v*- --iX 


■■31-r=- -' 


promptRef : 


Ref; ■. ri'sr>-c-i.yt 


•^'^'•iAi'-,\'.-lf 


filterProcPtr: 


WordProcPtr; 


■•'.^- ■■■■ -7 


typeListPtr: 


SFTypeList2Ptr; -.T-av'-f;^-.: 


.■;^r- '■ "■- '■ 


dialogTempPtr; 


DialogTemplate; 


o.^; .-:■■: 


dialogHookPtr ; 


VoidProcPtr; -.^tiii^"*^ 


;*.-. ' v-T 


VAR replyPtr: 


SFReplyRec2) ; 


^V-'v-u:- 


PROCEDURE SFPPutFile 


, >aA*5':-i>» 


f fit'iir^,- -'J -.' 


(whereX: 


Integer; 


•^1 >■«_'. 


WhereY: 


Integer; ; 4»^:7Jf»? 


'.■if,-:^.-^'^ 


prompt : 


Str255; tr-r-f-s.lWl 


. :'iv^"'-' " 


origName: 


Str255; -J^rAigt 


. ',^c -,- 


maxLen : 


Integer ; titj^':. ifct-feS 


nS'^r^'ST-: V--.7' ; t 


dialogTempPtr : 


DialogTemplate; '^;4«:-^f "'"i.^ 


; ■;f J>pj-'j-'f': ' 


dialogHookPtr : 


VoidProcPtr; aa-y^?-^,^;;,- 


:i;i'-'\*tS-'^ ■^.'' 


replyPtr: 


SFReplyRecPtr) ; 


jft: ■■'•;. ■■;'" 


PROCEDURE SFPPiitFile2 


V« *(*«&*« i 


:■<■!•»■.:■■■■.■.■- 


(whereX: 


Integer; i,i-Af-7 ".T^t 


: ■ i •«..■•■'■ 


WhereY : 


Integer; ■^li^.ijiti' .?:^C: •?'» 


■.■■.*.4';' "ti---:!* 


itemDrawPtr: 


ProcPtr; ; ;»/ 


u^9,--ia.'^. 


promptDesc: 


RefDescriptor/ '.j.i^Ti:-^^^'''^'^'- 


-.'ii'iri'rr^yf' rl '■ - 


promptRef : 


Ref; j^ai J a j^f^te^E^"^. 


.-i.H^-ftJ -i-i^'l i 


origNameDesc: 


RefDescriptor; - -a^lni.-r'I'.: 


:^.;*;'r-*-^'-' '^^'^ 


origNameRef : 


Ref; 


V -■.v.i- -;.vj!- 


dialogTempPtr : 


DialogTemplate; i-5Srt» riZ 


riw T>i--.i 


dialogHookPtr : 


VoidProcPtr; \'}'irp^i.;i 


■5:. ;- is 


VAR replyPtr: 


SFReplyRec2) ; :-[f ?a]*"?Vj''i'i:- :-*■-'? 


."ifiT'-'' "^"^ .-. -;'■ 


PROCEDURE SFPutFile 


, "JwJt 


• ■*;-* v^if.,. • 


(whereX: 


Integer; ■•s-T^.O'.v 'i'-i't*.^ 


■. t1.>:>-.\ ". :. - : 


whereY: 


Integer; -^ i-j^r.''*t.; >^<'<T?e' 


■ . ■", rzKl-rj -■ 


prompt : 


Str255; -, r».T-i'Yi^S(^fl''— 


-. : rf-;i.^!;f.5 "■ ■ - 


origName: 


Str255; 




maxLen : 


Integer; 




VAR replyPtr; 


SFReplyRec) ; 
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PROCEDURE SFPutFile2 

(whereX: 
whereY : 
promptDesc: 
promptRef: 
origNameDesc: 
origNameRef : 
VAR replyPtr: 

FUNCTION SFShowInvisible 

{invisibleState: 

PROCEDURE SFReScan 

(filterProcPtr : 
typeListPtr: 

IMPLEMENTATION 

END. 





;::.?:::■; 


Integer; : 


•,95t'fiV 


Integer; 


,t;0';}-t 


Re f Descriptor; 


-. H 


Ref ; 


V^8 


Ref Descriptor; 


- <i5 


Ref; 


-. -i ^ 


SFReplyRec2) ; 


. j-vs 




'iVS 


Boolean) : Boolean 


i?r 




-.^e 


ProcPtr; ' 


;f? 


SFTypeList2Ptr) ; 


•M: 



i - > 
i r i 



<5 3ff&9 



•;x^r: r.-"- ris* .u-. .■ ; 

3ti.; -a I'- if' ;■- '■ '■ 



ClJ.i.:t;J. 



TextEdit 



■<■ - J 



; File: TextEdit. p ■ . . 



i ^ } 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 



******* ******-i,1,*ir1ric*ie** ******* 



*************** 



ii'\^ UNIT TextEdit; 



i"'*K 



INTERFACE 



■...::iaoe - 



USES Types, QuickDraw, Fonts, GSOS, Resources, Controls? .J 



V^' 



CONST teAlreadyStarted = S2201 

teNotStarted = $2202 

telnvalidHandle = $2203 

telnvalidVerb = $2204 

telnvalidFlag = $2205 

telnvalidPCount = $2206 

telnvaiidRect = $2207 

teBufferOverflow = $2208 

telnvalidLine ' = $2209 

CelnvalidCali = S220A 
NullVerb ' = $0; 

PStringVerb = $0001 

CStringVerb = $0002 

CllnputVerb = $0003 

ClOutputVerb = $000-5 

HandleVerb = $0005 

PointerVerb = $0006 

NewPStringVerb = $0007 

fEqualLineSpacing = $8000 

fShowInvisibles = $4000 

telnvalidDescriptor = $2204 

telnvalidParameter = $22 OB 
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teInvalidTextBox2 
teEqualLineSpacing 
teShowInvisibles 
teJustLeft 
teJustRight 
teJustCenter 
teJustFull 
teNoTabs 
teColuranTabs 
teAbsoluteTabs 
teLeftTab 
teCenterTab 
teRightTab 
teDeciraalTab 
telnvls 

teCtlColorlsPtr 
teCtlColorlsHandle 
teCtlColorlsResource 
*^^* teCtlStylelsPtr 

teCtlStylGlsHandle 

teCtlStylelsResource 

teNotControl 

teSingleFormat 

teSingleStyle 

teNoWordWrap 

teNoScroll 

teReadOnly 

teSmartCutPaste 

teTabSwitch 

tGDrawBounds 

teColorHilite 

teReflsPtr 

teReflsHandle 

teRef IsResource 

teRef IsNewHandle 

teDatalsPString 

teDatalsCString 

teDatal sCl Input 

teDatal sClOutput 

teDatal sTextBox2 

tGDatalsText Block 

teTextlsPtr 

teTGxtlsHandle 

teTextlsResourcG 

teTextlsNewHandlG 

tePartialLinGS 

teDontDraw 

teUseFont 

teUseSize 

tGUseForeColor 

teUseBackColor 

tGUseUserData 

teUseAt tributes 

teReplaceFont 

teReplacGSize 

teReplaceForeColor 

teReplaceBackColor 

teReplaceUserFxeld 
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TYPE 
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teReplaceAttributes 


S0002 
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teSwitchAttributes 


SOOOl 
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teEraseRect 


$0001 
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teEraseBuf fer = 


$0002 
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teRect Changed = 


$0003 
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TEColorTablePtr = '^TEColorTable; 
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TEColorTable 
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RECORD 
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contentCoior : 


Integer; 




outlineColor : 


Integer; 




. pageBoundaryColor: 


Integer; 




hiliteForeColor : 


Integer; 




hiliCeBackColor : 


Integer; 




vertColorDescriptor: 


Integer; 




vertColorRef : 


Longint; 




horzColorDescriptor : 


Integer; 




horzColorRef : 


Longint; 




growColorDescriptor : 


Integer; 




growColorRef : 


Longint; 





END; 

TEBlockEntry 
RECORD 
text: 
length: 
flags : 

TEBlocksHndl 
TEBlocksPtr 
TEBlocJcsRecord 
RECORD 

start; 
index: 
blocks: 
END; 
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Handle; 
Integer; 



= "TEBlocksPtr; 
= "TEBlocksRecord; 
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Longint; «*.->!.• 

Integer; 

ARRAY tl..l] OF TEBlockEntry; 
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TEHandle 

TERecordPtr 

TERecord 

PACKED RECORD 
ctlNext: 
ctlOwner : 
ctlRect : 
ctlFlag: 
ctlHilite: 
ctlValue: 
ctlProc: 
ctlAction : 
ctlData: 
ctlRefCon: 
GtlColorRef 
textLength: 
blockList : 
f ilterProc: 
reservGdl : 
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= ^TERecordPtr; 

= "TERecord; •-■.s.f^tir ■ 
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CtlRecHndl; 

WindowPtr; 

Rect; ■s*'^^-^*^-^ '"" '-'-^ 






Byte; 
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Byte; 
Integer; 






ProcPtr; 
ProcPtr; 

Longint; 
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Longint; 
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TEColorTablePtr; 
• Longint; 

TEBlocksHndl; 




' - ^ V, * ' 
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ctllD: 




Longint; 
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ctlMoreFlags 


:: 


Integer; 
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ctlVersion: 




Integer; 
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theChar: 




Integer; 
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theHodif iers: 


Integer; 
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extendFlag : 




Integer; 






moveByWord: 




Integer; 






inputPtr : 




Ptr; 
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inputLength: 




Longint; 
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theRect : 




Rect ; 
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END; 
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RECORD 
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tabKind: 


Integer; 
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tabData: 


Integer; 
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END; 
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leftMargin: 
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leftlndent : 


Integer; 
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rightMargin : 


; Integer; 








just : 


Integer; 
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extraLS; 


Integer; 
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flags: 


Integer; 
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userData: 
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tabType: 


Integer; 
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tabs: 
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tabTerminator : Integer; 
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RECORD 
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tcFont: 


Font ID; 
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foreColor : 


Integer; 
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backColor : 


Integer; 
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reserved : 


Longint; 
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END; 
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TEStyleGroupHndl 


= "TEStyleGroupPtr; 
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TEStyleGroupPtr 


= "TEStyleGroup; 
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TEStyleGroup 
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count : 


Integer; 
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styles : 


ARRAY tl..l] OF TEStyle; , ^.j^.-r 
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END; 
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length: 


Longint; 
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offset: 


Longint; 
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TEFormatPtr 
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TCFormatPtr = " 


TEFormat; 
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RECORD 
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version: Integer ; 

ruler ListLength: Longint; 

theRulerList : ARRAY [1 . . 1] OF 
styleListLength : Longint; 
theStyleList : ARRAY [ 1 . . 1 ] OF 
numberOf Styles: Longint; 
theStyles: ARRAY [1..1] OF 
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RECORD 
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CASE Integer OF , 
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$0000 


; (textlsPStringPtr: 


StringPtr) ; 
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: (textlsCStringPtr: 


CStringPtr) ; 


i^;K".-\ -. 




S0002 


: {textlsClInputPtr: 


GSString255Ptr); 
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$0003 


: (textlsClOutputPtr: 


ResultBuf255Ptr) ; 
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S0004 


: (textIsTB2Ptr: 


Ptr) ; 
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S0005 


: (textlsRawPtr: 


Ptr); ■ - 






S0008 


: (textlsPStringHandle: 


String255Hndl) ; ■ 
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S0009 


: (textlsCStringHandle: 


CStringHndl) ; 


;tn-i -r-a 




SOOOA 


: (text IsCl Input Handle: 


GSString255Hndl) ; 


- f.-'?'.'S'-i -'.■ 




$000B 


: (textlsClOutputHandle : 


ResultBuf255Hndl) ; 
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$0OOC 


(textIsTB2Handle: 


Handle) ; 


.-,;■?- -" 




SOOOD 


(textlsRawHandle: 


Handle) ; 
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$0010 


(textlsPStringResource: 


ResID) ; 


.VF;':^s 




soon 


(textlsCStringResource: 


ResID) ; «'-t«'^-- 


;it*:rv."^*'ii,,:.- 




S0012 


(text IsCl InputResource: 


ResID) ; ^^^"^^ 
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S0013 


(text IsClOutput Resource 


: ResID); -'i^'^'"'^ ' 


^"■ttKr^V^.S."! ■'' 




$0014 


(text IsTB2 Resource: 


ResID); '-'^■^^' 
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(text I sRawResource : 


ResID); '^^^"^ 


:.,T'':,--'.r.f-- ,.^? 




30018 


(textlsPStringNewH: 


Strlng255HndlPtr) ; 


■.;:S- 




$0019 


(textlsCStringNewH : 


CStringHndlPCr); 






$001A 


(textlsClInputNewH: 


GSString255HndlPtr 


); ^■=^-^'"" 




SOOIB 


(tGxtlsClOutputNewH: 


ResultBuf255HndlPt 


r); ^^'-'^ 
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(textIsTB2NewH: 


HandlePtr) ; 


■'li-'-Z^.i. 




?001D 


(textlsRawNewH: 


HandlePtr) ; 
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END; 
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RECORD 
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CASE IntGc 


jer OF 








SOOOO: 


(stylelsPtr: 


TEFormatPtr) ; 
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$0001: 


(stylelsHandle: 


TEFormatHndl) ; 


■as.tvt.i'^'^- ■-■* 




$0002: 


( style IsResource ; 


ResID) ; 


,■;.,■.,. . • 




S0003: 


(stylelsNewH: 


"TEFormatHndl) ; 
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END; 
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TEPararnBlockHndl 


= "TEParamBlockPtr; 
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TEParamBlockPtr 


= "TEParamBlock; 
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TEParamBlock 


= 
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RECORD 






.'BiiiirtltHST 
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pCount : 


Integer; 


- 
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controlID: 


Longint; 


i 1*) ; iiiit,'-^'-iX 
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boundsRect 


: Rect ; 






procRef : 


Longint ; 
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flags : 
moref lags : 
re f Con: 
textFlags: 
indentRect : 
vertBar : 
vertScroll : 
horzBar: 
horzScroll : 
styleRef : 
textDescriptor : 
tGXtRef: 
textLength: 
maxChars : 
maxLines : 
maxHeight ; 
pageHeight : 
headerHeight : 
footecHeight : 
pageBoundary : 
colorRef : 
drawMode; . ,, 
filterProcPtr: 
END; 

TEInfoRec 

RECORD 

charCount : 
lineCount : 
format Memory : 
totalMemory: 
styleCount : 
rulerCount : 

£ND,- 



:.^tuM^t '■■'5 



Integer; 

Integer; 

Longint; 

Longint; 

Rect ; 

CtlRecHndl; 

Integer; ^i^^asr 

CtlRecHndl; 

Integer; 

TEStyleRef; 

Integer; 

TETextRef ; 

Longint; . ,j. 
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Longint; j,j^> - . ■;-ijAi'<;(54,.u"':. .".-,-•'■' 

Longint ; jjy^ -. -..-/^..Ti^.'. ' '"Vj J .■x--..i 

Integer; ,:^5j< : .*J'i,.\i^^i,-'i.' 'ai-AsM 

Integer; • ^ «,f ;- •■,sS-j?.li> "^ JJ 

Integer; .--y t^ - j ;- 5-w.s,R^r-i»--. »• 
Integer; 

Integer; ;, - j ;»,'iv.-,i.»»-Tf ; J?."-4*.- ?--*1? 

Longint ; . ;^ ; • *, i hK*gv« ' ' ■£ ""- ^ ' ■ 'V ' 

Integer; 2-:7i>' . i^Sl^iir-VTu ■•, ''j«.ii .:'-*. 
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TEHooks 

RECORD 

charFilter 
wordwrap : 
wordBreak: 
drawText : 
eraseText : 

END; 

PROCEDURE TEBootlnit; 
PROCEDURE TEStartup 

{userld: 
directPage: 
PROCEDURE TEShutdown; 
FUNCTION TEVersion: 
PROCEDURE TEReset; 
FUNCTION TEStatus: 
PROCEDURE TEActivate 

{tea: 
PROCEDURE TEClear 

(teH: 






Longint; 
Longint; 
Longint; 
Longint; 
Longint; 
Longint; 

-.^_.,^ ^0- -i^js 

: ProcPtr; 

ProcPtr; 
ProcPtr; 
ProcPtr; 
ProcPtr; 



Integer; , 
._k^. Integer) ; . 

Integer; 

Integer; 

TEHandle) ; 

TEHandle) ; 






;ii'»i?'*:^c^-;ii?0X5»t ;si»9) 



f-C-V 



(T-^v 



• ? ■ '■>--T. 






1 It J'Tt-.iiJj'^AIA^^T' 









■P4 


: -.■■',-:.'?,' 




•^St' •" 


r-i- ■ i ■:"■ 


. •'.. 


■ O'isi'--' 




■ J.&f.^C? 




: 'I'ic;:-; 




■I'^i.'O" 
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PROCEDURE TEClick 

(VAR thGEventPtr: 
teH: 
PROCEDURE TECut 

(teH: 
PROCEDORE TECopy 

(teH: 
PROCEDURE TEDeactivate 

(teH: 
FUNCTION TEGetDef Proc : 
PROCEDORE TEGetHooks 
(VAR hooks; 
count: 
teH: 
PROCEDURE TEGetSelection 
(VAR selStart: 
VAR selEnd: 
teH: 
FUNCTION TEGetSelectionStyle 
(VAR commonStyle: 
styleHandle: 
teH: 
FUNCTION TEGetTGxt 
(bufferDesc: 
bufferRef : 
buf ferLength: 
styleDesc: 
styleRef: 
teH: 
PROCEDURE TEGet Text Info 
(VAR infoRec: 
pCount: 
teH: 
PROCEDURE TEldle 

(teH: 
PROCEDORE TEInsert 
(fcextDesc; 
textRef: 
text Length: 
StyleDesc: 
StyleRef: 
teH : 
PROCEDURE TEInsertPageBreak 

(teH: 
PROCEDURE TEKey 

(theEventPtr : 
teH: 
PROCEDURE TEKill 

(teH: 
FUNCTION TENew 

(theParms: 
FUNCTION TEPaintText 
(thePort: 
start: 
destRect: 
paintFlags: 
teH: 



EventRecord; •, , jiin^.',i1i-^ 
TEHandle); 





' ;->,i'«*i«X 


■ :;%<* .- ■ ■ 


TEHandle) ; 


•,1 ■"•' %tj^t^7 


■^'^r.: ^ . 




\,wi'#Vs;^r 


:s: tiflt^^ :.'■ 


TEHandle) ; 


■. i<»:*^^:'i ': 


-■tc-li*-. 




■.'if^Jt-a^Y-*"^''^ 


^ :.*"'■ I • " •■ 


TEHandle) ; 


-, ;-i;-:*!tii.St^'T 


.-•■ -. 


ProcPtr; 




»■ !^>,..-?'-l•'■■■*■ - 




■.»;;ijc4*. "r 


■ f > --■•r 


TEHooks; i 


•:;,5.¥i»:;>^I 


-^'■■. ■ 


Integer; 


■; io^l-mrKfifX 




TEHandle) ; 




r .:.i':--^.'<'- ■'■■■"•' 




- '. •-■il^.toJ. 


: Tm.J' •■ 


Longint; 


../alpiK^i 


.b--^- - 


Longint; 


5 iAtbf*ft«<j"i- 


. ■■(: 


TEHandle) ; 




■xii"'?*^:'"" 




^TPi-K^ 'fi 


■<■--.■:, . ■ 


TEStyle; 


^=>S»tSi 


:Vj>t : - 



TEStyleGroupHndl; ■ ?vi'-«- 
TEHandleJ : Integer; x^r-t-r 
.:-■::■ -i^^-t 
Integer; * [djtps^'? 
TETextRef; 

Longint; •. i-4««i.Jti.y 

Integer; i,*.iifm^ 

TEStyleRef; '.nHJ"' 

TEHandle) : Longint; 

TEInfoRec; 
Integer; 
TEHandle) ; 

TEHandle) ; 

Integer; 
TETextRef; 

Longint; 
Integer; 
TEStyleRef; 
TEHandle) ; 

TEHandle) ; 

EventRecord; 
TEHandle) ; 

TEHandle) ; 

TEParamBlock) : TEHandle; 

GrafPortPtr; 

Longint; 

Rect ; 

Integer; 

TEHandle) : Longint; 



*.(;i'. -■ ■■ 
: T-f-'^-J-'J ■ ■■ 

, ^ .' 

if'" ■ T '• 

: '-.i ' 
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PROCEDURE TEPaste 

(teH: 
PROCEDURE TERGplace 
(textDesc: 
textRef : 
textLength: 
styleDesc; 
styleRef : 
teH: 
PROCEDURE TESetHooks 
(hooks : 
count: 
teH: 
PROCEDURE TESetSelection 
(selStart: 
selEnd: 
teH: 
PROCEDURE TESetText 
(textDesc: 
textRef: 
textLength: 
StyleDesc: 
StyleRef; 
teH: 
PROCEDURE TEStyleChange 
(flags: 
newStyle: 
teH: 
PROCEDURE TEUpdate 
(teH: 

IMPLEMENTATION 
END. 



TEHandle) ; 

Integer; 
TETextRef ; 
Longint ; 
Integer 7 
TEStyleRef ; 
TEHandle) ; 

T E Hooks, - 
Integer; 

TEHandle) ; 

Longint; 
Longint; 
TEHandle) ; 

Integer; 

TETextRef; 
Longint; 
Integer; i'o- 
TEStyleRef; 
TEHandle) ; 

Integer; 
TEStyle; 
TEHandle) ; 

TEHandle) ; 



.'■s> ; miv: 

'.Sit^i!'*^''' '■■■ "^fS 
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r^ov 



• rf.-.t ; •:" ■•f'- *' ■' 
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y^ 



TEXnOOL 



File: TextTool.p 



***-ki,*1i:-i,i,ic 



Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 

UNIT TextTool; 



INTERFACE 






USES Types; 






CONST 






badDevType 


= 


SOCOl 


badOevNum 


= 


50C02 


badMode 


= 


S0C03 


unDefHW 


= 


S0C04 


lostDev 


= 


$0C05 


lostFile 


= 


$0C06 


badTitle 


= 


$0007 


noRoom 


= 


$0008 


noDevice 


= 


S0C09 


noFile 


= 


SOCOA 


dupFile 


= 


SOCOB 


notClosed 


= 


$0O0C 


notOpen 


= 


SOCOD 


badPormat 


= 


$000E 


ringBuf fOFlo 


= 


$0C0F 


writeProtected 


= 


$0010 


devErr 


= 


S0C4 


input 


= 


$0000 


output 


= 


$0001 


errorOutput 


= 


$0002 


basicType 


= 


soooo 


pascalType 


= 


SOOOl 


ramBased 


= 


$0002 


noEcho 


= 


$0000 


echo 


= 


$0001 



TYPE 

DeviceRecHndl 
DeviceRecPtr 
DeviceRec 











,C' 




ii-i^f 


«1 




'. Ri-i) 


,-^v.l 




.xp^r'S-r.; 




■ '-^v: ■li''^ : ".'-t'- '- 


t f-r-,^'^ :' 


;^ 




ilJ«t 




; .' ■': .'1.. 


- 'i?^i»?(i ■ 




: ^;i^^r 


\ i >P^S:f- 






; ; ■> -^'^n '. '■-. \ 




:-■ 1 ■.■ ■;«.■•;■»;<■■; ■ 



T ,--■ '1 I* 



■^-•; 



{error - not Implemented } 

{error - Illegal device number. ) 

{error - Bad mode: illegal operation. ) 

{error - Undefined hardware error } 

{error - Lost device: Device no longer on line ) 

{error - File no longer in diskette directory } 

(error - Illegal Filename ) 

{error - Insufficient space on specified diskette ) 

{error - Volume not online ) 

{error - File not in specifiled directory ) 

{error - Filename already exists } 

{error - Attempt to open an open file } 

{error - Attempt to close closed file } 

{error - error reading real or integer } 

{error - Chars arriving too fast ) 

{error - ) 

{error - Read or Write failed } 

{deviceNum - ) 



^■f?;-tv>"':: 






(deviceNum - 
{deviceNum - 
{deviceType - 
{deviceType - 
{deviceType - 
{echoFlag - } 
{echoFlag - } 



= "DeviceRecPtr; 
= "DeviceRec; 
= RECORD 

ptrOrSlot ; 

deviceType 
END; 



Wu^^X.flal 









;^e*Mii? 



4iji5o>.-:,-,- , -;■ .-^.■ 
••ism'i ■■'■ 

■• '. 'n^:'- V ■' ' ' -, 



TxtMaskRecHndl = "TxtMaskRecPtr; 
TxtMaskRecPtr = "TxtMaskRec; 



Longint; { slot number or jump table ptr ) 
; Integer; { type of input device } 



.-*■■-•.'; 



-. f > 



^^" 
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RECORD 

orMask : 
andMask 

END; 



-7-i-=3?is'5^^SS«i^^r^^«'-^'^^^ ■"-■'■"' 



Integer; 
; Integer; 



}f =■■ 



PROCEDURE 

PROCEDURE 

PROCEDURE 

FUNCTION 

PROCEDURE 

FUNCTION 

PROCEDURE 



PROCEDURE 



PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
PROCEDURE 

FONCTION 

FUNCTION 



PROCEDURE 



PROCEDURE 



PROCEDURE 



PROCEDURE 



PROCEDURE 



TextBootlnit; 
Text Start Up; 
TextShutDown; 
TextVersion 
Text Reset; 
TextStatus : 
CtlTextDev 

(deviceNum: 
controlCode : 
ErrWriteBlock 

(textPtr: 

offset: 

count ; 
ErrWriteChar 

(theChar: 
ErrWriteCString 

(cStrPtr: 
ErrWriteLine 

(str: 
ErrWriteString 

Cstr: 
GetErrGlobals : 
GetErrorDevice : 
GetlnGlobals: 
Get Input Device: 
GetOutGlobals : 
GetOutputDevice : 
InitTextDev 

(dGviceNum; 
ReadChar 

(echoFlag: 
ReadLine 

(bufferPtr: 

maxCount : 

eolChar : 

echoFlag: 
SetErrGlobals 

(andMask: 

orMask: 
SetErrorDevice 

(deviceType: 

ptrOrSlot : 
SetlnGlobals 

(andMask : 

orMask : 
Set Input Device 
(deviceType: 

ptrOrSlot: 
SetOutGlobals 
(andMask : 

orMask : 



>«t>~«4.-- 



Integer; 



Boolean 



<" rQ?i .a(;i . t i i-^'.^'^^-y- 






Integer; 
Integer) ; 

Ptr; 
Integer; 

Integer) ; 

Integer) ; 

CStringPtr) ; 



■ JUtl If-*^^ 



Str255); 



-^'J "^iVJ 






Str255) ; 

TxtMaskRec; 

DeviceRec; 

TxtMaskRec; 

DeviceRec; 

TxtMaskRec; 

DeviceRec; 



=»•*■:« ci*vJ5-'&r: bi.r -r -.--T^iiO 
s<:ivs>a i^^^vsfh Site.! - 



B* i?«-^ 



Integerl'i' 



Integer) : Integer; ■ _^., 



■; ._; '1 -■* ; 


uyi? 


■SC-\lM 


-y;s jr>:- 


v.i'iK^ 


ir<5:;?:j 


,.ti^ .-:, 


i V T*' ' -t 


.« 3J*i 


.sr.U 


:vo/t-?^: 


1^0^^- 


=f ;■;»; 


ri,-;..- 


~':- :.•'») 


jivj-l;- 


•ft- 1 -Jt^v - 


^ *ii) ->'-.- 


■^.'■yi^i; 


i.^^- ■ 


^to-? j^i 


\^>^':-^ 


•{■aST-<- 


s'-';Ty.^~ 


:K!;"r;'c' 


•,0<'^-" 


Tn!'f>5 


!.'?-?'X'.: 


JtJ. V . 


■- ■:;>:«>". 



Ptr; 
Integer; 
Integer; 
Integer) : 

Integer; 
Integer) ; 

Integer; 
Longint) ; 

Integer; 
Integer) ; 

Integer; 

Longint) ; 

Integer; 
Integer) ; 



Integer; 






3;-v-j^ 



^ .jr.- 






Jpn'-> 
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v^ 



PROCEDURE 
PROCEDURE 
PROCEDURE 

PROCEDURE 

PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 



Set Out put Device 
(deviceType: 

ptrOrSlot : 
StatusTextDev 
(deviceNum: 

requestCode : 
TextReadBlock 
(bufferPtr: 

offset: 

blockSize: 

echoFlag : 
TextWriteBlock 

(textPtr: 

offset : 

count : 
WriteChar 

(theChar: 
WriteCString 

(cStrPtr: 
WriteLine 

(str: 
WriteString 

(str: 



IMPLEMENTATION 
END, 



Integer; 
Longint) ; 

Integer; 
Integer) ; 

Ptr; 

Integer; 
Integer; 
Integer) ; 

Ptr; 
Integer; 

Integer) ; 



Integer) ; 
CStringPtr) ; 
Str255); 
Str255) ; 



-S- ■!!«/ if .- 












» :.""■. 



"" >'■.■" . -;; 



1 r:;hf:A'-- 
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V^ 



TYPES 



{************1i:**-k****** ******** ± ************* 

; File: Types. p 

i 

Copyright Apple Computer, Inc. 1986-89 
All Rights Reserved 

************-k*************-k*****-k***********<i 



UNIT Types; 
INTERFACE 

CONST 






:S 



{SIFC UNDEFINED noError } ( - } 

noError = 50000; { 5SETC noError := 0} 

{ $ENDC ) 
reflsPointer = $0000; {Ref Descriptor 

reflsHandle = $0001; {RefDescriptor 

reflsResource = $0002; {RefDescriptor 

ref IsNewHandle = $0003; {RefDescriptor - } 






- } 

- } 

- ) 



,"-'j»!.;; 



V^' 



TYPE 



Byte 
Fixed 

Frac 



= 0. .255; 
= Longint, 
= Longint; 
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m^em 



ExtendedPtr 

SignedByte 

PackedByte 

Ptr 

PointerPtr 

Handle 

HandlePtr 

CStringPtr 

CStringHndl 

CStringHndlPtr 

ProcPtr 

VoidProcPtr 

WordProcPtr 

LongProcPtr 

IntPtr 

FPTPtr 

String255 

String255Ptr 

String255Hndl 

String255HndlPtr 

Str255 

StringPtr 

StringHandle 

String32 

String32Ptr 

Strlng32Handle 

Str32 



= "^Extended; 

= -128. .127; 

= PACKED ARRAY [1..11 of SignedByte; 



= "PackedByte; 
= "Ptr; 
= "Ptr; 

= "Handle; 

= Ptr; 

= "CStringPtr; 
= "CStringHndl; 
= Ptr; 

= ProcPtr; 
= ProcPtr; 
= ProcPtr; 

~ "Integer; 

= Ptr ; 

= STRING[255]; 

= "String255; 

= "String255Ptr; 

= "String255Hndl; 

= Strlng255; 

= String255Ptr; 

= "StringPtr; 

= STRING [32] ; 

= "String32; 

= "String32Ptr; 

= String32; 












.■;«•■ it.. .•; 



;<;l'- -■" . 






■j^^.-.^rii^55'pf?^5®?r*^^?2^'*i'iT?^' 



PointPtr 
Point 



RectHndl 

RectPtr 

Rect 



TimeRecHndl 
TimeRecPtr 



"Point; 
RECORD 

V : Integer; 

h : Integer; 

END; 
"RectPtr; 
"Rect ; 
RECORD 

CASE INTEGER OF 



If >■•»<** ■ 



PK--?^ s' .rsA; . -. ■v-"'^^"''-' r*f'.t^-.:'- 



■JV 



'■■;5- 



1: 



2l 



; V - ■■ 



■zrf 



(top: Integer; 
left : Integer; 
bottom; Integer; 
right : Integer) ; 

(topLeft: Point; 
botRight ; Point) , 



"TimeRecPtr; 
"TimeRec; 



- 7'-wCil 


T- 




vl 
hi 
v2 


Integer; 
Integer; 
Integer; 


■ %'.--?i-i - 






h2 


Integer) 


t 




END; 
.ZA% .0 

'. t'i'-i''-'-'- 
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^5^5. 



TimeRec -- 


= PACKED 


RECORD "^ ' '^^^ 








second: 


Byte; 






minute: 


Byte; 






hour: 


Byte; 


_ 




year: 


Byte ; 






day: 


Byte; 






month: 


Byte ; 






extra: 


Byte; 






weekDay : 


Byte; 






END; 








Re fDG script or = Intecfer; 



*•»•**><•■ I- ' ' n^ 






ft** , ,1 » ■»-. »5l ji* >4a' . »■ i ' » 1 ■»■ 



w 



VAR 

{SPUSH} 

(SJ+1 



i5P0P} 



Ref = RECORD 

CASE Integer OF 

reflsPointer : 

reflsHandle: 
( vii* »^<W" reflsResource^BJMii 

ref IsNewHandle : 

ownerid : Integer; -^M T-^-i^&s SrjBt->t^;'3 - ^iis«'.T^'5 :'(^J:*^*^' 
toolErr : Integer; --;S>.«*»fe ^ iK)J;j»*3 fefel - titH^^nHxiy i^i--2i^T?^':\ 



■ya.*r.-':ii 



( reflsPointer : Ptr ) ; 
( reflsHandle : Handle ) ; 
( ref IsResource : Longint ) 
{ reflsNewHandle : Handle ) 









(these calls are only here temporarllty } 



-- T? 






FUNCTION BAND4(longl, long2 : Longint): LongInt; ■ = »&i^'03 

FUNCTION B0R4 (longl, long2: Longint): Longint; ySe^tSiK- ^^f-ii^mi' 

FUNCTION BX0R4 (longl, long2: Longint): Longint; -«**«««: 't-.' *iiv^y.l ■ 

FUNCTION BN0T4 (longl: - «*-yt Xongint) : Longint* st^'-'*^^'^^.' iSTr^-in-*:-**: 

-.';'. ;rr'vtl-'r;. 

FUNCTION BSL4 (longl: Longint; count: INTEGER) 

FUNCTION BSR4 (longl: Longint; count: INTEGER) 

FUNCTION BRotL4(longl: Longint; count: INTEGER) 

FUNCTION BRotR4{ longl: Longint; count: INTEGER) 



•.^? - 



Longint; 

Longint; 
Longint; 
Longint; 



BOOLEAN; 



- ji^&^ii a.' Hi". 
i - *iKi.s .■:■-.'•■ 



FUNCTION BTst4( longl: Longint; pes: INTEGER) 

PROCEDURE BClr4{VAR longl: Longint; pos : INTEGER) 

PROCEDURE BSet4 (VAR longl: Longint; pos: INTEGER) 

IMPLEMENTATION 

END. ■- ■■..'■ 



■.--:V.1V- ' 
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WINDOWS 



\ » .■ iS? 



; File: Windows .p 

; Copyright Apple Computer, Inc. 1986-89 
; All Rights Reserved 



■ -t i "it. J iK- 



-. liifV.y.-T-*.: 



************************ + ***********■****■**** 



UNIT Windows; 

INTERFACE 

USES Types, QuickDraw, Events, Controls; 

CONST M 12^1 : tsl^lvi©1-«2l» i t 






parartiLenErr 




allocateErr 




taskMaskErr 




wNoConstraint 




wHAxisOnly 




wVAxisOnly 




FroraDesk 




ToDesk 




GetDesktop 




SetDesktop 




GetDeskPat 




SetDeskPat 




GetVisDesktop 




BackGroundRgn 




toBottom 




topMost 




bottotnMost 




tmMenuKey 


= SOOOl 


traUpdate 


= S0002 


tmFindW 


= $0004 


tmMenuSel 


= $0008 


tmOpenNDA 


= sooio 


tmSysClick 


= S0020 


tmDragW 


= S0040 


tmContent 


= S0080 


tmClose 


= $0100 


tmZoom 


= $0200 


tmGrow 


= 30400 


tmScroll 


= $0800 


tmSpecial 


= siooo 


tmCRedraw 


= S2000 


tmlnactive 


= $4000 


tralnfo 


= S8000 


wNoHit 


- $0000 


inNull 


= $0000 


in Key 


= $0003 


inButtDwn 


= $0001 



SOEOl; {error - first word of parameter list is the wrong size ) 

$0E02; {error - unable to allocate window record } 

S0E03; {error - bits 12-15 are not clear in WmTaskMask field of 

EventRecord ] 
SOOOO; {Axis parameter - No constraint on movement. } 
$0001; {Axis parameter - Horizontal axis only. } 
S0002; {Axis parameter - Vertical axis only. } 

$00; {Desktop Command - Subtract region from desktop } -^ .-^'. 
$1; {Desktop Command - Add region to desktop } ,:■ j.- . 

$2; {Desktop Command - Get Handle of Desktop region } 
S3; {Desktop Command - Set Handle of Desktop region } 
S4; {Desktop command - Address of pattern or drawing routine } 
S5; {Desktop command - Change Address of pattern or drawing 

routine J .«i:?^or'." . t^di^^.: :£t=^ci »-^"--§' 

$6; (Desktop command - Get destop region less visible windows. ) 
$7; {Desktop command - For drawing directly on desktop. } 
$FFFFFFFE; {SendBehind value - To send window to bottom. } 
$FFFFFFFF; {SendBehind value - To make window top. } 
SOOOO; {SendBehind value - To make window bottom. } .■:> ■'-'--. 
{Task Mask - 
{Task Mask - 
{Task Mask - 
{Task Mask - 
{Task Mask - 
{Task Mask - 
{Task Mask - 
{Task Mask - 
{Task Mask - 
{Task Mask - 
{Task Mask - 
(Task Mask - 
{Task Mask - 
{Task Mask - 
{Task Mask - 
{Task Mask - 

{TaskMaster codes - retained for back compatibility . 
{TaskMaster codes - retained for back compatibility ) 
{TaskMaster codes - retained for back compatibility } 
{TaskMaster codes - retained for back compatibility ) 












) 
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inUpdate 

wInDesk 

wInMenuBar 

wClickCalled 

wInContent 

wInDrag 

wlnGrow 

wlnGoAway 

wInZoom 

wlnlnfo 

wInSpecial 

wInDe ski tern 

wInFrame 

wInactMenu 

wClosedNDA 

wCalledSysEdit 

wInSysWindow 

wDraw 

wHit 

wCalcRgns 

wNew 

wDispose 

fHilited 

f Zoomed 

fAllocated 

fCtlTle 

finfo 

fVis 

fQContent 

fMove 

fZoom 

fFlex 

fGrow 

fBScroll 

fRScroll 

EAlert 

fClose 

fTitlG 

windSize 

wmTaskRecSize ■ 

wTrackZoom 

wHitFrame 

wlnControl 



TYPE 
WmTaskRec 



WmTaskRecPtr 
WindColorHndl 
WindColorPtr 
WindColor 



= $0006; {TaskHaster codes - retained for back compatibility } 
= 30010; {TaskMaster codes - On Desktop } 

= $0011; (TaskMaster codes - On system menu bar } *■■-'■ 

= $0012; {TaskMaster codes - system click called } ^-'l^i-* 
= $0013; {TaskMaster codes - In content region ) "n*:!'- 
= S0014; (TaskMaster codes - In drag region } 

= $0015; (TaskMaster codes - In grow region, active window only ) 
= 50016; (TaskMaster codes - In go-away region, active window only } 
= $0017; (TaskMaster codes - In zoom region, active window only } 
= S0018; {TaskMaster codes - In information bar } 
= S0019; {TaskMaster codes - Item ID selected was 250 - 255 } 
= 5001A; (TaskMaster codes - Item ID selected was 1 - 249 } 
= SIB; {TaskMaster codes - in Frame, but not on anything else } 
= SIC; (TaskMaster codes - "selection" of inactive menu item } 
= SOOID; (TaskMaster codes - desk accessory closed ) '■* 
= SOOIE; (TaskMaster codes - inactive menu item selected } 
= S8000; {TaskMaster codes - hi bit set for system windows J ' ' -' ' 
" SOO; (VarCode - Draw window frame command. } "■ '-^'' 

=- SOI; (VarCode - Hit test command. } 
= S02; (VarCode - Compute regions command. } ^■'^''- 
= $03; {VarCode - Initialization command, ) 
= SO-S; (VarCode - Dispose command. } 
= SOOOl; (WFrame - Window is highlighted. } '-: 
= $0002; (WFrame - Window is zoomed. ) 
= $0004; (WFrame - Window record was allocated. } 
" S0008; {WFrame - Window state tied to controls. ) 
= SOOIO; (WFrame - Window has an information bar, } 
= $0020; (WFrame - Window is visible. } ' J 
= S0040; (WFrame - } **< } 

- $0080; (WFrame - Window is movable .'^^"''^l > 
= SOIOO; (WFrame - Window is zoomable. } ^ ''- 
" $0200; {WFrame - } "* • 

= S0400; {WFrame - Window has grow box. } 

' S0800; {WFrame - Window has horizontal scroll bar. "t*^ ''*' 
= $1000; {WFrame - Window has vertical scroll bar. } 5*5r1 
= $2000; {WFrame - } 

= $4000; (WFrame - Window has a close box, } 
= $8000; (WFrame - Window has a title bar. } 
= S145; (WindRec - Size of WindRec. } 



•ft- 



■ ■ ■ I - .. ■ » , I 



.'!. 






fU«'. 









$0046 

SOOIF 
S0020 
S0021 



{WmTaskRec - Size of WmTaskRec. } 



- } 

- ) 

- } 



= EventRecord 



5 .fc«9bfli«fii*(l«j </j. 3.».vc«i'*«J ; 



EventRecordPtr ^***^ ©" ?SiB»iSJ&« -i 

"WindColorPtr; 

^WindColor; 

RECORD '- ' 

f rameColor : Integer; 

titleColcr : Integer; 

tBarColor: Integer; 

growColor: Integer; 

InfoColor: Integer; 

END; 



, 1 ,-V "^» ,"-^ 7 

• 7 3'?30'-5 -^b : <• V 



ii:\ : 






•.'■i-ep&^:- 



{ Color of window frame. } 
( Color of title and bar. } 
( Color/pattern of title bar. 
{ Color of grow box. ) 
{ Color of information bar . ) 
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WindRecPtr = "WindRec; 
WindRec= RECORD 












port: 
wDefProc: 
wRefCon: 
wContDraw: 

wRGserved : Longint ; 
wStrucRgn: RgnHandle; 
wContRgn : RgnHandle; 
wUpdateRgn : RgnHandle; 
wControls: CtlRecHndl; 
: wFrameCtrls: CtlRecHndl; 
wFrame: Integer; 
END; bi&JiPi^ > ;»a*'«.t'>'»4 M.Mi 

WindowChainPtr = "WindowChain; -.jv^., ■^c-'^ -r-is liii ;•' 



- r ) 

GrafPort; { Window's port }.i_: ■ 

ProcPtrj"(-->r;'.-i -z-; ■- a*«ii^.v i:i^»«»i:?j ■.-.;f T - 
Longint;^,ft.<t» r- - .v»t»^:^^ 
ProcPtrfcci'- r:l. - '^^fe^!'. 



i^ti-^ 



( Space for future expansion } 

{ Region of frame plus content 

{ Content region. } vv.-. '< - 

{ Update region. } 

{ Window's control list. ) 

{ Window frame ' s control list . 









WindowChain 



= RECORD 
wNext : 
theWindow: 

END; 



WindowChainPtr^ . i:j(»j.«,^fiT,iv jpi^^,. ; ■;>■ lii^r;- .";-?> 






WindRec; 



ParamListHndl = 'ParamListPtr; 
ParamListPtr = ^ParamList ; 
PararaList = RECORD 

paramLGngth: 

wFrameBits : 



01 T.".^':'-i , 






wTitle: 

wRefCon: 

wZoom: 

wColor : 

wYOrigin: 

wXOrigin: 

wDataH: 

wDataW: 

wMaxH: 

wMaxW: 

wScrollVer : 

wScrollHor : 

wPageVer ; 

wPageHor : 

wlnfoRefCon: 

wlnfoHeight : 

wFrameOefProc: 

winf oDefProc: 

wContDefProc: 

wPosition: 

wPlane: 

wStorage: 

END; 



Integer; 
Integer; 
Ptr; 

Longint; 

Rect; 

WindColorPtr; 

Integer; 

Integer; 

Integer; 

Integer; 

Integer; 

Integer; 

Integer; 

Integer; 

Integer; 

Integer; 

Longint; 

Integer; 

LongProcPtr; 

VoidProcPtr; 

VoidProcPtr; 

Rect; 

WindowPtr; 

WindowChainPtr; 









DeskMessageRecordPtr 
DeskMessageRecord 
RECORD 

reserved 
messageType 



;?»0:?i ■ IP- fb^ ^'i- 

Parameter to KewWindow. 

Parameter to NewWindow. } ■^v.,i';^i 

Parameter to NewWindow. } *■-*«; JV*- 

Parameter to NewWindow. } ;i*^>Trfi :t'^;--,-:.-:; 

Parameter to NewWindow. ) js^^a^-'^f ir3>'^ 

Parameter to NewWindow. > »b,b'*-j^> \-\iiy [.•':■' 

Parameter to NewWindow. } !«[;»■• ■^". *■^^^>ls,-r■*' 

Parameter to NewWindow. } &tab'.'->': ,Vli*i* 

Parameter to NewWindow. } Bf,ji.«4-»Tc: f.ctjf*;; 

Parameter to NewWindow. } MJa-.'?v"i ■.*•:-■;'* 

Parameter to NewWindow, > ■^^ji-;'*^' ■ij^i>'i. 

Parameter to NewWindow. ) ««..-jB'.iW: ;«?JiVj' 

Parameter to NewWindow. ) r^'ist^i**? 

Parameter to NewWindow. ) :..^, wi .^ *i 

Parameter to NewWindow. y-.:A-s'^.''.^^,i 

Parameter to NewWindow. ) - "■ 

Parameter to NewWindow. ) ■- J 
height of information bar } - ;. 

Parameter to NewWindow. } 

Parameter to NewWindow , } 

Parameter to NewWindow . } 

Parameter to NewWindow. } 

Parameter to NewWindow. ) 

{ Parameter to NewWindow. J >t?tln'/^'- 

!:>?»-■. r-- ' 

= "DeskMessageRecord; '.'yr.:i-':''. 

: Longint; ,.5 j, i-!^«-ji^-i ■ yMiy:} if u>^. J 
Integer; ,-^-j \ •-^'^'jj'iT .• j i.'??'-*!''":*- 






,il,--,^T5,> 



drawType 



Integer; 



END; 
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v^ 



v^' 



FUNCTION AlertWindow 
( alertFlags : 
subStrPtr: 
alertStrPtr: 
PROCEDURE DrawInfoBar 

( theWindowPtr: 
PROCEDURE EndFrameDrawing; 
FUNCTION GetHindowMgrGlobals: 
PROCEDURE ResizeWindow 
( hiddenFlag: 

rectPtr: 

theWindowPtr: 
PROCEDURE StartFrameDrawing 

( windowPtr: 
PROCEDURE WindBootlnit; 
PROCEDURE WindStartUp 

( userlD: 
PROCEDURE WindShutDown; 
FUNCTION WindVersion: 
PROCEDURE WindReset; 
FUNCTION WindStatus: 
PROCEDURE BeginUpdate 

( theWindowPtr: 
PROCEDURE BringToFront 
( theWindowPtr: 
FUNCTION CheckUpdate 

{ theEventPtr: 
PROCEDURE CloseWindow 

{ theWindowPtr: 
FUNCTION Desktop 

( deskTopOP : 
dtParam: 
PROCEDURE DragWindow 
( grid: 
startX: 
startY: 
grace: 

boundsRectPtr: 
theWindowPtr: 
PROCEDURE EndlnfoDrawing; 
PROCEDURE EndUpdate 

( theWindowPtr: 
FUNCTION FindWindow 

(VAR theWindowPtr: 
pointX: 
pointY: 
FUNCTION FrontWindow: 
FUNCTION GetContentDraw 

( theWindowPtr: 
FUNCTION GetContentOrigin 

( theWindowPtr: 
FUNCTION GetContentRgn 
( theWindowPtr: 
FUNCTION GetDataSize 

{ theWindowPtr: 
FUNCTION GetDefProc 

( theWindowPtr: 



Integer; 

Ptr; 

Ptr) : Integer; 









WindowPtr) ; 



i .-?«-v-T;n,«^ 



Longint; 



Integer; 
Rect ; 
WindowPtr) ; 

Longint) ; 



Integer) ; 
Integer; 



4 !'5^ty*,»yv%.i*: 



Boolean; 



WindowPtr) ; 



WindowPtr) ; 



, rs^-'Noc^lH 



EventRecordPtr) : Boolean, 



WindowPtr) ; 



Integer; 
Longint) : Ptr; 









Appendices 



-Jrt^oo^aOfJ^^tlr^iA 



Integer; 
Integer; 
Integer; 
Integer; 
RectPtr; 
WindowPtr) ; 



WindowPtr) ; 

WindowPtr; 

Integer; 

Integer) : Integer; 

WindowPtr; 

WindowPtr) : VoidProcPtr; 

WindowPtr) : Point; 

WindowPtr) : RgnHandle; 

WindowPtr) : Longint; 

WindowPtr) : LongProcPtr; 
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FUNCTION GetFirstWindow: 
PROCEDURE GetFrameColor 

(VAR colorPtr: 
theWindowPtr : 
FUNCTION GetlnfoDraw 

( theWindowPtr: 
FUNCTION GetlnfoRefCon 

( theWindowPtr: 
FUNCTION GetMaxGrow 

( theWindowPtr: 
FUNCTION GetNextWindow 

( theWindowPtr: 
FUNCTION GetPage 

( theWindowPtr: 
PROCEDURE GetRectlnfo 

(VAR infoRectPtr: 

theWindowPtr: 
FUNCTION GetScroll 

( theWindowPtr: 
FUNCTION GetStructRgn 

( theWindowPtr: 
FUNCTION GetSysWFlag 

{ theWindowPtr: 
FUNCTION GetUpdateRgn 

{ theWindowPtr: 
FUNCTION GetWControls 

{ theWindowPtr: 
FUNCTION GetWFrame 

( theWindowPtr: 
FUNCTION GetWKind 

{ theWindowPtr: 
FUNCTION GetWMgrPort: 
FUNCTION GetWRefCon 

{ theWindowPtr: 
FUNCTION GetWTitle 

( theWindowPtr: 
FUNCTION GetZoomRect 

( theWindowPtr: 



WindowPtr; 

WindColorPtr; 
WindowPtr) 



rfv-< ;?ti 



WindowPtr) : VoidProcPtr; 

WindowPtr) ; Longint; 

WindowPtr) : Longint; 
WindowPtr) : WindowPtr; 

WindowPtr) : Longint; 

-. 'itii'^l.-ii-': 
Rect; 

WindowPtr) ; 

WindowPtr) : Longint; 

WindowPtr) : RgnHandle; 

WindowPtr) : Boolean; 

WindowPtr) : RgnHandle; 

WindowPtr) : CtlRecHndl; 



WindowPtr) : Integer; 



WindowPtr) : Integer;' 

WindowPtr; 

•f.-J 

WindowPtr) : Longint; 

WindowPtr) : Ptr; 

WindowPtr) : RectPtr; 

, ,■ >/ ■^ , ---— - 

\ t!*?'* -C-i ; ' :tfif' tax 
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kJ- 



■/■ 



FUNCTION GrowWindow 
(minWldth: 
minHeight : 
startX: 
startY: 
theWindowPtr : 
PROCEDURE HideWindow 

(theWindowPtr: 
PROCEDURE HiliteWindow 
(fHiliteFlag: 
theWindowPtr: 
PROCEDURE InvalRect 

C taadRectPtr: 
PROCEDURE InvalRgn 

( badRgnHandle: 
PROCEDURE MoveHindow 
(newX: 
newY: 

theWindowPtr: 
FUNCTION NewWindow 

(theParamListPtr : 
FUNCTION PinRect 
{theXPt: 
theYPt: 
theRectPtr: 
PROCEDURE RGfreshDesktop 

( redrawRect : 
PROCEDURE SelectWindow 
( theWindowPtr: 
PROCEDURE SendBehind 

(behindWindowPtr : 
theWindowPtr: 
PROCEDURE SetContentDraw 
( contentDrawPtr : 
theWindowPtr: 
PROCEDURE SetContentOrigin 
(xOrigin: 
yOrigin: 
theWindowPtr: 
PROCEDURE SetContentOrigin2 
(scrollFlag: 
xOrigin: 
yOrigin: 
theWindowPtr: 
PROCEDURE SetDataSize 
(dataWidth: 
dataHeight : 
theWindowPtr: 
PROCEDURE SetDefProc 
(wDefProcPtr: 
theWindowPtr : 
PROCEDURE SetFrameColor 
(newColorPtr : 
theWindowPtr: 
PROCEDURE SetlnfoDraw 
' (infoRecCon: 

theWindowPtr: 



Integer; ' 

Integer; 

Integer; 

Integer; 

WindowPtr) : Longint; 

WindowPtr) ; 

Boolean; 
WindowPtr) ; 

Rect) ; 

RgnHandlG) ; 

Integer; 
Integer; 
WindowPtr) ; 

ParamList) : WindowPtr; 



Integer; 
Integer; 
Rect) ; Point, 

RectPtr) ; 

WindowPtr) ; 

WindowPtr; 
WindowPtr) ; 

VoidProcPtr; 
WindowPtr) ; 

Integer; 
Integer; 
WindowPtr) ; 

Integer; 
Integer; 

Integer; 
WindowPtr) ; 

Integer; 

Integer; 
WindowPtr) ; 

LongProcPtr; 
WindowPtr) ; 

WindColorPtr; 
WindowPtr) ; 

VoidProcPtr; 
WindowPtr) ; 



; (5.3 'Cintx-f--: 
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FontHndl) : FontHndl; 

Longint; 
WindowPtr) ; 



PROCEDURE SetlnfoRefCon 

(infoRefCon : Longint ; 

theWindowPtr : WindowPtr) , 
PROCEDURE SetMaxGrow 

(raaxWidth; Integer ; 

maxHeight ; Integer; 

theWindowPtr: WindowPtr) , 
PROCEDURE SetOriginHas]( 

toriginMask : Integer; 

theWindowPtr : WindowPtr) 
PROCEPURE SetPage 

{hPage : Integer; 

vPage: Integer; 

theWindowPtr: WindowPtr) 
PROCEDURE SetScroll 

(hScroll: Integer; 

vScroll : Integer ; 

theWindowPtr : WindowPtr) 
PROCEDURE SetSysWindow 

(theWindowPtr : WindowPtr) 
PROCEDURE SetWFrame 

(wFrame: Integer; 

theWindowPtr : WindowPtr) 
FUNCTION SetWindowIcons 

{newFont Handle: 
PROCEDURE SetWRefCon 
<wRefCon : 
theWindowPtr : 
PROCEDURE SetWTitle 

(title: SCr255; 

theWindowPtr: WindowPtr); 
PROCEDURE SetZoomRect 

(wZoomSizePtr: Rect; 
theWindowPtr : WindowPtr) ; 
PROCEDURE ShowHide 

( showFlag : Boolean ; 

theWindowPtr : WindowPtr) ; 
PROCEDURE ShowWindow 

(theWindowPtr: WindowPtr) ; 
PROCEDURE SizeWindow 

(newWidth: Integer; 

newHeight: Integer; 

theWindowPtr: WindowPtr) ; 
PROCEDURE StartDrawing 

(theWindowPtr: WindowPtr) ; 
PROCEDURE StartlnfoDrawing 

(VAR infoRectPtr: Rect; 
theWindowPtr: WindowPtr) ; 
FUNCTION TaskMaster 

(taskMaslc: Integer; 

taskRecPtr: WmTaskRec) : Integer; 

FUNCTION TrackGoAway 

( start X: Integer; 

startY: Integer; 

theWindowPtr: WindowPtr): Boolean; 
/' 



t j^f^ ■'"■* 
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y^ 



Integer; 
Integer; 
WindowPtr) : Boolean; 

Rect); 

RgnHandle) ; 

VoidProcPtr; 

Pattern; 

Integer; 

Integer; 

Rect ; 

Rect; 

Rect ; 

Integer) 



FUNCTION TrackZoom 
(startX: 
startY: 
theWindowPtr 
PROCEDURE ValidRect 

(goodRectPtr: 
PROCEDURE ValidRgn 

(goodRgn Handle: 
FUNCTION WindDragRect 
(actionProcPtr: 
. dragPatternPtr: 
StartX: 
startY: 
dragRectPtr: 
limitRectPtr; 
slopRectPtr: 
dragFlag: 
PROCEDURE WindNewRes; 
FUNCTION WindowGlobal 

(WindowGlobalMask : 
PROCEDURE ZoomWindow 

{theWindowPtr: WindowPtr) ; 
FUNCTION TaskMasterDA 
(eventMask : 
taskRecPtr: 
FUNCTION CompileText 
(subType: 
subStringsPtr: 
srcStringPtr: 
srcSize: 
FUNCTION NewWindow2 
(titlePtr: 
refCon: 

contentDrawPtr: 
defProcPtr: 
paramTableDesc: 
paramTableRef : 
resourceXypG : 
FUNCTION ErrorWindow 
(subType: 
subStringPtr: 
errNum: 



Longint ; 



Integer) : Integer; 



Integer; 

Ptr) : Integer; 

Integer; 

Ptr; ... 

Ptr; 

Integer) : Handle; 

StringPtr; 

Longint; 

ProcPtr; 

ProcPtr; 

Re f Descriptor; 

Ref; 

Integer) : WindowPtr; 



Integer; 

Ptr; 

Integer) : Integer; 



IMPLEMENTATION 
END. 



V^' 
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Complete Pascal Memory Model -«^.-^wv— -*. ^^«.~. — - — ^^-. - - 

The environment in which an Apple IIGS application runs may be divided into 4 basic 
components: the Application Code, the Application Globals. the Runtime Stack, and the 
Application Heap. All of these components of an application coexist in the Apple IIGS's RAM 
memory. Memory in the Apple IIGS is partitioned into 64K byte fcanj^s which are managed by 
the Apple IIGS Memory Manager. A standard Apple HGS comes with 4 banks of 64K byte RAM 
memory numbered $00, $01, $E0, and $E1. RAM expansion cards can be added to the Apple IIGS 
^^Si_"nmg at bank $02 and may extend to bank $7F. other bank numbers are reserved or not 

For a thorough introduction to the architecture to the Apple IIGS see Apple Computer's Technical 
Introduction to the Apple IIGS. 



The Application Code 



An Apple IIGS application may consist of one or more code segments. Small programs are 
usually made up of only a single code segment, but larger programs are divided into several 
code segments because the Apple IIGS limits the size of an individual code segment to 64K bytes. 
The reason for the size restriction is that a code segment must not cross the boundries of a 
bank of memory. 

Complete Pascal generates a separate code module for each Pascal procedure and function 
declared in a program. Each of these code modules is associated with a load segment name 
which IS used to organize separate code segments together by the linker. The default segment 
name is main. When an application has grown large enough to require more than one code 
segment, the {$CSeg segname } directive is used to change the segment name assigned to 
subsequent code modules. The compiler can be restored to use the default code segment name by 
specifying {$CSeg main }. . , 



The Application Globals ^^-'W■! >t:^:?^;'--.!Viu/-. 

Complete Pascal allocates storage for global variables in data segments. By default, the data 
segments are given the load segment name "-global". The Linker uses the load segment 
names associated with each data segment to group them together into load segments. Programs 
are usually made up of only a single data segment, but programs which require a large amount 
of global storage are divided into several data segments because the Apple IIGS limits the size 
of an individual data segment to 64K bytes. The reason for the size restriction is that a data 
segment must not cross the boundries of a bank of memory. 
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When an application requires a large amount of global storage, it should use the ($DSeg 
segname } directive to instruct the compiler to allocate subsequent global variable declarations 
into a new data segment. The compiler can be restored to the default data segment by 
specifying ($DSeg -global }. 

During the execution of program initialization code generated by Complete Pascal, the 65816 
Data Bank Register is set to point to the bank of memory which contains the global variables 
declared in the -global data segment. Because of this, references to global variables in the 
-global data segment can use the Absolute Addressing Mode. Global variables in all other data 
segments are addressed using the less efficient Absolute Long Addressing Mode. 



The Runtime Stack 

The runtime stack is a special block of memory that the application uses to maintain the return 
addresses of procedures and functions, and to store parameters and local variables. During the 
execution of application initialization code, a block of memory is allocated in bank $00 of the 
Apple IIGS. The block is allocated in bank $00 because this is the only bank of memory in 
which the 65816 Siac^ i?ej?is/er is able to operate. ---^" .^* 

By default, Complete Pascal allocates a stack containing 8096 bytes (8K) for an application. If 
an application requires additional or less stack space, then you should specify the {$StackSize 
numbytes } directive in order to change the amount of space allocated for the stack. 

The ($StackSize numbytes } directive must appear before the reserved word PROGRAM for it 
to have any affect. For example, the following code fragment would cause a lOK stack to be 
allocated. 




Desk Accessories do not have initialization code which allocates and initializes a runtime 
stack since they run within the environment of other applications. Thus, when writing an 
application be sure to leave a reasonable amount of stack space for use by desk accessories, and 
of course when writing a desk accessory, be sure to use as little stack space as possible 
(Remember the default, and typical, runtime stack is only SKbjrtes). ^^ ?:5iijs»^ &"* ;';-*»)• ..' 

^ ♦ Warning: Neither the Apple IIGS nor Complete Pascal has any way to detect the amount 
' of stack space actually used by an application. If insufficient space has been reserved for 
^ the runtime stack, then execution of the application will destroy the contents of memory. 



The Application Heap m>cj^i-- no;;^ '. ■; m ' 

The application heap is the memory still available after the application's code, global data, and 
runtime stack have been allocated. This memory is available to an application via the Memory 
Manager routines defined in the Memory. p. o unit provided with Complete Pascal. Memory may 
also be allocated and deallocated in the application heap using Complete Pascal's New and 
Dispose procedures.^^-^,^^^^ ^^.^ ..k*.W ^.,^a^3^ =.;^b r«--.4-c .,i:vi h^^:-.,^ . .: -vy--, . >-, :;. 

Nearly every application will allocate at least one memory block in bank $00 for initializing 
the Apple IIGS tools used in the application. Many of the Apple IIGS toolsets require one or more 
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pages allocated in bank $00 to function. These pages are sometimes called zero pages. 



\^ 
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Data Representation 

IssirstoZthZl^l '"I; "' "^'/'"'' '"'" '^"'^ "^ -P-=-ted in memory. Note that the 
accumlftor That is tr"^"^ T'^^'r '" T'""^^ backwards from its representation in the 
WtsTre n hil ' lf^=t fenificant bits are in low memory while the most significant 

bits are in high memory. Consider the following Pascal declaration: 

^yP,^.. trick = packed record - " ^^ ^, b-iov"-- s nn;;T...!iav-f: 
case integer of .iiva^i.-:-!CU.'x 

0: (int: integer) ; 
1: {highbyte: 0..255; ^^^^^...^^^ 

'S?..-S>I' lowbyte: . .255) ; 'J_ .._J1 

end; 



^di . 



I^uld actllW r .t ^r' ^^V^^-i^ts one might expect. On the 65816, referencing highbyU 
would actually return the low order byte of the integer int, and not the high order byte Th 
following paragraphs should clarify the storage layout of the Pascal data typfs 

Integer A signed two's complement integer in the range -32,768 to 32,767 requiring 2 

bytes of storage. Bit 15 is the sign bit 



15 



ZJ^ 



Longint 



Boolean 



t ■5>1A'^. ivJiJ C:i^. ''i^'^£i-Jt-^%tiif 



Note: S denotes the sign bit) *^'*" ' *' 



A signed two's complement integer in the range -2,147,483,648 to 2 147 483 647 
requiring 4 bytes of storage. Bit 31 is the sign bit. , , -o r 



7 



15 



8 23 



16 



31 



24 



»5^ Z^ 



.>*.< 



An enumerated type of (FaUe,True) requiring one byte of storage, where the 
or recTrd '' '" ^' ^°^ ""^^ of storage is used inside of a packed array 



l^.^X~- 



7 



15 



13 



r^^i SHAS 0!^,? s^ J**iW3<n$l^i{«* ^■^y^ ittsH 



.'■-a 






C/iar 






An enumerated type of the ASCII character set having 256 Values The 
-^^ character value requires two bytes of storage where the value is in the lower 



15 



m 



f+rr 



S«^mera/.W An unsized byte or word size integer. If the enumeration type consists 
of 128 or fewer enumeration constants, then the a value of the type occupi 



es a 
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?.i\oc single byte of storage if used inside of a packed array or record., otherwise, it 
occupies a word of storage. 



;sss«.«s.-«i;^^^SlSS5 



- S^ *^ ^* .-^ii,.'-. 



S^aRS?Si^^'^-' 



<= 128 enumerations 



r^*f5^??w^^?-^"- -■ -"-^-■~-- -'■: ■ 



15 



> 128 enumerations ^^ ^^ ^^^^^ ^, ^^ ^.^...j/ :. . . 



Subrange A signed byte, word, or longword. If the range is within -128. .127 a word is 
used in unpacked structures or simple variables, but inside of packed arrays 
and records a byte is used to represent the subrange. If the range is within - 
32768. .32767 a word is used, otherwise a longword is used to represent the 
subrange. 



1 \ t. -'ft' 



7 



*. (/.'.C, .0 -. -^siY-i**"-^" -128. .127 






7 



7 







15 



15 8| ^.^ ,^^^^ ^^^ _,,,^,, -32768.-32767 ^> :^-: ■;• •■■■■ 



8 



23 16 



31 



24 



all others 



». ■■ .j'- • .-V 



Single A 32-bit real number represented in IEEE standard single precision format 

implemented as the SANE Single type. 



31 30 



23 22 



S Exponent Signifcand 






Double A 64-bit real number represented in IEEE standard double precision format 

implemented as the SANE Double type. 



63 62 



52 51 







*iiJ *Tfjrf«r ^fi: 



s 


Exponent 


Signifcand 



■>,:^' 



Real I An 80-bit real number represented in IEEE standard extended format. 
Extended Both are implemented as the SANE Extended type. -*' -^-^ 



79 78 



64 63 










s 


Exponent 


Signifcand 



Stringln] An n+1 byte size Pascal String consisting of a byte containing the current 
string length (not counting the length byte itselO followed by bytes containing 
ASCII characters. . i; ^„. 

-Il„_..31 -' 

byte 1 2 3 ... ' n+1 



length 
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v^ 



Pointers 



Sets 



FUes 



Arrays I 
Records 

iiii-^ o< fj. if 



A 24-bit physical memory address occupying 4 bytes of storage. Only 3 bytes 
are needed to store the 24-bit address value so bits 31-24 are always zero The 
ml pointer is represented as the 32-bit value zero. . - . . 







15 



8 



23 



16 



31 



B 



-•'\:i^ 



A sequence of bytes up to a maximum of 32 bytes or 256 bits representing the 
powerset of the base-type. The number of bytes used is the minimum number 
required to represent the powerset. An ordinal value of the base-type is 
represented by a single bit whose bit number is the ordinal value If an 
ordinal value is a member of a set then its bit is set to 1, otherwise, it is set to 
It the ordinal values of the base-type are in the range 0..15, then two bytes are 
used to represent the set. If the ordinal values of the base-type are in the range 
U..31, then four bytes are used to represent the set, etc. 

A 22 byte data structure used internally by the Complete Pascal runtime 
routines In addition to the file variable itself, an open file associated with an 

TT-o"™ ^'^^ ^^^ ^ ''''''^^^ ^"^'^^'' allocated in the application heap for use 

by Lrb/Ub; additionally, a textfile has a 256 byte line buffer. 

Components of unpacked arrays and records are allocated contiguously as 
defined above. Arrays are stored in row order. That is, the last index varies 
fastest. Record components are allocated as they textually appear in their 
declaration. 

The implementation of Complete Pascal performs'data packing to byte 
boundnes only, no bit packing is available. A data type is represented as a 
byte in a packed structure if and only if the number of bits required to store all 
values of the type is less than or exactly eight bits. For example, the standard 
type Char or Boolean require less than or equal to 8 bits to represent all of their 
values, therefore in a packed structure Char and Boolean are allocated a byte 
of storage, but otherwise require a word of storage. - ~ 



35!>i^s> -n u^i^o ^fflii taz-'M --i.^' 



Calling Conventions 



^^,^as m^^i 79 seij'-ftastt , -.-^iT^A-j- _..„ 



This section outlines the Complete Pascal compiler conventions for calling procedures and 
tunctions. parameter passing, and function result values. 



V_y' 



Calling a Subprogram 

Complete Pascal uses a stack-based parameter passing convention for calling subprograms 
frder'af h."^ H P^''^'''' °^/""/^^°"' ^^^ parameters are pushed onto the stack in the same 
aHocated nn th . V r?' ^ 1""''^°" "' ^'^"^ '^"^^' ^^^ ^^°^^^^ ^'^ '^' ^-"^^ion result is 
rP nrnpH t ^ TV ' ^""'^'"^ ^"^ parameters. After the call has completed, control is 

returned to the calling environment with parameters (if any) removed from the stack, but the 

r^rnvr^^'r r ^ .^ ^"'^^""^ '' ^"^^ ''" ^"^ "^^"^^ '^'''^- Tl^^ calling environment must 

remove the function result value after it has used it. 
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Following is skeleton code for a procedure call. .'hi^- v'ti' ''ri^ U'Sjh-'akl ■ -''''^-i -'' 

Ida pppp ; Push first parameter: ""ii-';3'5''S'*T i** '•'^•"■■•■'sl ' 

pha 

Ida pppp ; Push last parameter — •^~~ *-- -■.-—-■--' 

pha 

,. isl >Aproc c vf> ;;. ; Call the procedure (V^i^Jt--. ■'^ 

" . . .^ , ^r iw«3i Parameters removed from stack iV: ■ '-'f-; 

The following is skeleton code for a function calU H0 *t^m5 b t*^; f^/c^-,.>u;?' 

pha . •: JS-: 0^,;-;- Reserve space for result value "C- ;u:j ,■ 

Ida pppp !■ .fOig^^ ■ ' Push first parameter ^ *iti3 irtse-^'i'i^^^ ■' *'^^'' 
pha ; ' ^,, ^^ ^.„ ..._c .:,:. - :.. - ; :^ - a£^>^ "^**^ ''^^^ ' ^' " 



->■*. 

^i;' 



:ii^ 



Ida pppp *^nm«* ' Push last parameter .■x'^t.>,^_ '.^.tak ^^ixi 
pha ' 0^0.^ '*'^*''^ ''^ .f.-.i!'-«;i-v-' 

jsl >Afunc g^- • ; Call the function **i''^ •-»!(:> {*•■■ i'tf>.^,. 
„_-ri--^ ; Parameters removed from stack X-X.-'&Jr>) v 



.■r°iT?igd 



P^^ -ca.^iino5^iJK-^ ' Remove function result from stack t^^i^-C? .-. ^^'^ 

.*h^* r^f^t iQ*f S£55 .s; 4 ' ^^d Pl^c« ^"^ accumulator ,^vev:« ^^^^ J!y^ 



-» t 



Subprograms are always called in full 65816 native mode (ie. 16-bit accumulator and index 
registers). Therefore, if the processor is not in full native mode before the call, it is forced to 
full native mode before the call is made. For example, assume that the accumulator is in 8-bit 
mode and the index registers are in 16-bit mode, then the following code is generated. 

. ., T3£s tft'-' ' Accuinlator currently in 8-bit mode >»-'"^!^''' j 

, -'.rep #S20 . i,^ ; Change accumlator to 16-bit mode C? *=::tv 

jsl >ASubprog ,5g^ifcj«^ fe'«r*" a *^tt?.i'^jf-5 .^^^a«^s4 i4Ki .i^'gii-lv '" •■•■ 

If the subprogram being called is declared at a level other than the global level (not in the 
program or unit block), then a static link is pushed on the stack after all the parameters have 
been pushed- The static link serves as a mechanism to address local variables in nested 
stackframes. Because of this static link, the address of a nested subrogram should never be 
passed to an Apple IIGS Toolbox routine as a definition procedure since this is not the calling 
convention the Toolbox expects. 

Variable Parameters 

Actual variable parameters (var parameters) are always passed by reference to the formal 

parameter, that is, as a pointer that points to the storage occupied by the actual parameter. The 

pointer is passed as a 32-bit (4-byte) value. The high order word is pushed first followed by the 

low order word. , >■ ■ :■,-.■-- 

.\i^*ti^o ^sff. stsi;* a-iv .Ef.il-.. .*- ^ •--■- --^j .. — ,- - . _ . 

Consider the following example for a passing the global variable GlobVar as a variable 
parameter using the absolue addressing mode. _..,., _■ 
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pea GlobVar|-16 ; Push high order word first 
pea GlobVar ; Push low order word second 



Value Parameters 



fhe s?L of^L"^ r ?f!r'-''''';i^''^ '^''' ""^"" "" ^^' ^'^'^ ^' ^y ^^^^^^"^- depending on 
fasseTon the sta^^ Vl^r "''"l' ""^"' Parameter occupies 4 bytes or less, then its value is 
Zn f t\ .1 oo ;' ^^^ ^^^""^^ paramter. If the size of the value parameter occupies more 

u^fl "[l''' ^ 32-b.t pointer to the value is passed on the stack. The called proceduror 

^ZelnLloZT " 'f "V"'° ^"^' ''''^^' ''' ^^« '^'""^^ P^--^^- ^- t^-t changing the 
value of the formal parameter does not affect the value of the actual parameter. . 



Static Parameters , '^: ., ;/ , . 

difference between static and value parameters is that if the size of the actual parameter is 
greater than 4 bytes, the called procedure or function DOES NOT copy the valu™ local 

vSint T 'T'i P-^r*^-, Thus, it is illegal to give the formal sLtic parameter a new 
value since it would change the value of the actual parameter. 

bf the "runtTl"''.'' w'"'^ introduced in Complete Pascal to conserve the amount of space used 

proJ^amr,in.^ ''"""^ '^°™''' parameters as well as improve the execution speed of 

programs since no unnecessary copying is performed. 

•> Note: Complete Pascal does not check that a new value is never assigned into a static 
^-'" used "otectly '"''^P"-'*'""'^ "' «>« programmer to ensure that static parameters are 



Function Results 



o™l function results ,s reseved on the stack by the calling subprogram before any 

bZZTZ r ''" K °"'° '''' '''''^- '' '^' *'""'=«°" ^'=^"" '^ "' 'yP« Integer Longlnt. Char. 
Boolean, or any subrange enumerated or pointer type, or the real type Single. 2 or 4 bytes of 

tte W mem r" ;. ''tl ''""1' '^P^-''--^ ""'^ ' ^yte of storage'^S bytef a're allocated Ld 
tne low memory address byte contains the value. 

falHnrsntntfp^ '' of type OozzWe, Camp. Extended, or any array, string, or record type, then the 
pu he! a 4 hvtf f Tf^ temporary space within its stackframe for the result vklue, and 
from the 2c-t P"'"'^/ /° ' '^-"P-ary storage. The calling subprogram removes the pointer 

rrreLtsttetlue'e^iJr^""" ^^'"™^- ^"' ''^ ''""'"'''^ ='"^^<= '= deallocated when no 



r-S-in-(»«i Kkf/Y Atii *ir**'*uj tvaMie*-i9*<-*r >? t. .i-f &■:. j S-ve :J?«iA.!>^'.^v 



Entry/Exit Code . 

frPat^^TnH' P™"'^"7 =^"5 '■""'=«™ begins and ends with standard entry and exit code which 
creates ana removes its activation , , 
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phd 




tsc 


».>. 


sec 




sbc 




ted 


2i 


clc 
adc 
tcs 



The standard entry code is as follows: ... 

-.i i-:^.>i:i i-':%tA. li^n^'a ". >; ; ■ ^ :''.V:^"r-- ;- 

; Save previous frame pointer 

; Establish new frame pointer 

«..^o ' " ' T I Allocate local storage .,:n;> 5iU -- '^-^f^ '-''^-^ '^-'-■' ' 

First, the direct page register from the previous activation is saved. The direct page register is 
used as a frame pointer for an activation. The saved frame pointer is called the dynamic link, 
and is required to restore the state of the previous activation. 

After saving the previous frame pointer, xx bytes are subtracted from the current stack pointer 
to establish the frame pointer for this activation, xx is computed so that the first word of 
storage in the stack activation (ie. the function result or first parameter) is at direct page offset 
254. Choosing this offset allows all parameters and as many local variables as possible to be 
addressed using the very efficient direct page addressing mode. 

Once the frame pointer for the activation is established, yy bytes are added to that value to 
allocate the storage needed for local variables, value parameters copied local, and compiler 
temporaries. , ,„ , . •. . • ,,' . ,- -'■ -i.-v'S- ^' -..-■- '■ 

Note that no registers are saved, and it is assumed that the processor is in full native mode. 

^-rf-*-. »-. - — J, - tj- ■. ■ 

The standard exit code is as follows: . ,. ^ ^* *.,..■ i' ' 

r tdc le^ .f.^ .^-^ ^'-^.^^ -^ ts^^*^^^ ^ ^« ^im-r^^^t ■^'^^^ r- ^^^:'-: .; 

clc 

adc #xx 

tcs .**»««—«-«-. ; Deallocate local storage 

pld ; Restore previous frame pointer S*1fjv'>« 1 ' • 

Ida 2,S ^ ^oiiU-^ ^*iJ t<J ^e*» ^^ ^' a!?**^ri m ^Si^^2^ ^iCrlf-r;, '-'■ —■■ - 

mm,S ^ " .-■ &^r^.»vr.V>-.'^ -^ 



n 



^>r- 



9 



sta 

Ida 1,S ; Move the return address down over 

sta mm-l,S g ^..^yj^^^i^-?^^. the parameters s^rjijjj TT-saS'^T •-::-' f* 

tsc ' "' .i_^;i; ..J^o s(im*t\i>o '}^S.C< -S'-" •- 

clc 

adc #mm-2 ; Deallocate the parameters UViSiAJ. ^*^'!f.J"^i" '^' 



tcs . -_ir^Cj rsSviKii*"^ ■^^^ ■■? •■"■''^ ■ 

■ rt 1 J "■* ' "** - " --—^1- -.-•-.A.-m. ."»••.»+ *i t ifct "vftliTf-.*"- tTvC; 

Local storage is first removed by adding the value xx to the frame pointer. Then the frame 
pointer from the previous activation is restored with the pld instruction. Then the parameters 
are "removed" from the stack by moving the return address down overtop of the first 
parameterCs) and then positioning the stack pointer to the new location of the return address. 
And finally, the RTL is executed to return to the calling subprogram (typically in the Apple 
IIGSROM). -^ -. ,. ^ _. :.....„......;. S,....V..... 

Note that if a procedure or function does not have any parameters then its exit code is the 
following: 
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r 



clc 



#xx 



«*1 



Deallocate local storage 
Restore previous frame pointer 



./ 
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. ,pp©niar 

Complete Pascal versus TML Pascal 

Complete Pascal implements many new features and makes several changes to the original 
TML Pascal product for the Apple IIGS. In this appendix we review the significant differences 
between these two products in order that users of the original version of TML Pascal can more 
quickly adapt to Complete Pascal. 

The following sections are organized based on the chapters in this manual. Each section 
addresses the signifanct changes in Complete Pascal as they are mentioned in this book. 



Chapter 1 - Getting Started - - .— ...... 

Perhaps the most imporant and significant change in Complete Pascal is that it is specifically 
designed for System Software version 5.0 and GS/OS. Complete Pascal, and programs created 
with Complete Pascal, cannot run on any version of ProDOS/16 or versions of GS/OS earlier 
than version 5.0, 

This restriction is primarily because of the heavy use of the Resouce Manager by Complete 
Pascal which, of course, is not available in versions of the Apple IIGS System Software earlier 
than 5.0. 



Chapter 2 - Using the Desktop Environment ^ ^^''^"^ .^..>^?- ;.. 

The Complete Pascal editor n-w allows for an unlimited number windows open on the desktop 
In addition windows can use any font and font size for the text and each window may have a 
different tab setting. In addition, the editor now supports the Undo command. 

The editing environment also supports a second window type for editing resource files. 



^:5i.fv;.Jv 



Chapter 3 - Creating Programs 

The file naming conventions have changed for Complete Pascal. Pascal source code files 
should end with the suffix ".p" instead of ".pas". This allows for two additional characters in 
the tilename of source code f^les. The filename conventions for compiled unit symbol files has 
changed as we 1. Instead of the ".usym" suffix, the compiler appends a «.o" to the source code 
hie name resulting in a suffix of ".p.o". These new conventions must be followed when using 
Units in order that the compiler can locate compiled symbol files on the disk. ■ '-• ■■'-' 

The Resources... menu item in the Compile menu has been added to specify which resources 
should be compiled into a final application. 

Appendices ..i^.-i-^v ii6;>2^''; •-^^>i<^ff»0 "^1 Complete Pascal versus TML Pascoi 



.3 lKifea-.>f vl-.-^-^€W;r'> 



Chapter 4 - Creating Resources ^ ^^^'^^fM^^t*-^-^ 

Resources are a completely new feature to Complete Pascal- Programs written with TML 
Pascal should be converted where possible to take advantage of the new resources cababilities of 
System Software version 5.0. . . ■• 



Chapter 7 - Textbook Graphics Applications 

TML Pascal implemented the "Plain Vanilla" application type. This has been replaced by the 
"Textbook Graphics" application. Previously, a program could place the parameters Input and 
Output in the program header to invoke the Plain Vanilla environment. For example: 

Program Test { Input, Output ) ; 

Plain vanilla turned on the grahics screen in 640 mode and created a large window with the 
title "TML Pascal". This allowed for easy programming of simple graphics. 

Complete Pascal has changed this feature by adding the predefined procedure titled "Graphics". 
The procedure has a parameter allowing the program to specify either 320 or 640 mode graphics, 
and instead of creating a window on the screen, the program can now use the entire graphics 

screen. ^ ^^ -j^t^arM »3fw5^'^ ftiU 'i^ ^mi X^&^ r^n^ ta ^as^.^-w y:.M>y.^i■<::* - ' ----^ -- -- -- 



Chapter 8 - Desktop Applications s^.^^^E^-F^^^ft-T.i.' - 

Desktop applications should now use resources to create menus, windows, dialogs, etc. 
Resources are created using the TML Resouce Editor. Resources are then added to the compiled 
program by selecting a resource file with the Resources... menu item in the Compile menu. 



Chapter 9 - New Desk Accessories (NDAs) 

The source code for a New Desk Accessory should now be written as a Unit rather than a 
program. Desk accessories do not have a main program, thus it is not necessary to use the 
program structure. 



Chapter 1,0 - Classic Desk Accessories (CDAs) ^ ii.^/:! :.-^ ■ 

The source code for a Classic Desk Accessory should now be written as a Unit rather than a 
program. Desk accessories do not have a main program, thus it is not necessary to use the 
program structure. 
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Chapter 1 1 -Tokens g^vjTp^Bu mvw:^tixT:^>j - c ^n^n^ --^r^ 

Complete Pascal now defines three real number constants to facilitate the writing of numerical 
applications. The compiler defines Inf (Infinity). Nan (Not A Number) and PI. 



Chapter 19 — Input and Output - t'»^d»t m^mn^irsti ,%'>viL^ia^ ■li.i-.K w nn :; 

Complete Pascal now implements the Open procedure for opening a file for random read/writ( 



access. 



Complete Pascal now supports GS/OS. Thus, filenames may use any legal ProDOS/16 or GS/OS 
pathname reference In addition, any legal predefined or generated GS/OS device name may 

« PRTNTFR" /"![ ?-"pL"Tx?^^^i'"^t[' ^^l^^^i^« "^"^e "sed to access the printer is now 
.PRINTER and not "PRINTER:" Note that the device name ".PRINTER" is case sensitive 
and must be spelled with upper case letters. 



:d s*^j&!ii«^fu xctJ.iV>T iii'K-l ^i^.q. 
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Chapter 20 - Standard Procedures and Functions 

The procedure Graphics is new to Complete Pascal. ^ '^'^^^*?'*'«^.^*'^ ^^"^"^J^^ ^ ^^'; 

The following standard procedures and functions have been renamed with Complete'^Pascai in 
order to conform with naming standards adopted by Apple Computer. 

BitAnd BAND ■ ^ *-i 

BitOr . BOR »^"^ * ^ Xf^" -iCO ^■ 

BitXor BXOR 

a ^ifi-.;4i fc^.rj* BitNot a »sgft»-K{«fe T^'-^" BNOT -f® ^^<Tti f^^simt&^i-'^-^ ,'^'°'C- t--^"^"''" ^ ' 
■$3qyt ii^ili"^ BitSL ff^tt .x^0S9'^ Is -y BSL^»^ ^^^ is-rfi^t y:t^mntK Vs v-,'-'-:^ •- - :■:.•■ ■ 

.ynt BitSR :>ito-^R^:£f e; '^- bSR t*'^ x^tts 3© hTWK>i fesa^sr.^ :'. :•.- -■ '-■:' 

BitRotl BROTL 

BitRotr ■,,. ■ BROTR 

Hi Word ■■■' -■ . .^/. HiWrd (IntMath.p has HiWord) 

LoWord LoWrd (IntMath.p has LoWord) 

Finally, the predefined global variable which returns the error code from Toolbox procedure and 

unction calls has been renamed ".ToolErr". The name "ToolErrorNum" is still supported but 

the new name should be used when new code is written to conform to the new naming 

standards. ^ 
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Appendix B - Compiler Directives 



(/■i^^r/^v i 



The following three compiler directives have been renamed. ^i^''.- ^.'v:;r' -v; *'r:- in*: t ' - ■ « 

A^ hn^i..^ ^ ^^^^^ ^^ri^i *:^^^h .-Vv;rn^. .: ,. ^V - ■. 

$DeskAcc has been renamed $NDA 

$P has been renamed $U 

■ ,g^.^ $XrefVar has been renamed $J :^,^,3ss39es»aKS5S£i^:sr*^^^^ — v-- - 

The following compiler directives have been added since TML Pascal vl.O. However they were 
available in TML Pascal vl.50 

$DefProc 



Appendix C - Toolbox Interfaces ^j^^^^c ass-s -^-q« ins- >tf.:5. - . 

The Apple IIGS Toolbox interfaces have gone through substantial changes. Several new 
interfaces have been added to support System Software version 5.0 and all previous mterfaces 
have been changed to conform to the new standards adopted by Apple Computer. 

Complete Pascal has chosen to use the new standard interfaces created by Apple Computer in 
order that Complete Pascal programmers may take advantage of the documentation, technical 
notes, examples and many other technical resources created by Apple Computer which will use 
Apple's new interfaces. TML Pascal programs will require some degree of change to use the 
new interfaces, but will enjoy the benifit of standardization. ,^^g,Jg^^^i^^- i^^or ,,-.ti;,: ■•- t ■ ;» 



Appendix D - Inside TML Pascal to^m 

The Boolean type, enumeration types and small integer subranges are now represented using a 
word (2 bytes) of memory rather than just one byte of memory. However, when these types 
appear in a packed record or array they are represented as using one byte of memory. 
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